I am trying to implement the data type LExpr as an instance of show.
data LExpr = Var String | App LExpr LExpr | La