showLispVal (Definition name val) = "(define " ++ name ++ " " ++ show val ++ ")"
showLispVal (Definition name val) = "(define " ++ name ++ " " ++ show val ++ ")"
showLispVal (Definition name val) = "(define " ++ name ++ " " ++ show val ++ ")"