showLispVal (If pred then' else') = "(if " ++ show pred ++ " " ++ show then' ++ " " ++ show else' ++ ")"
showLispVal (If pred then' else') = "(if " ++ show pred ++ " " ++ show then' ++ " " ++ show else' ++ ")"
showLispVal (If pred then' else') = "(if " ++ show pred ++ " " ++ show then' ++ " " ++ show else' ++ ")"