showLispVal (Function args expr) = "(lambda (" ++ initSafe (concatMap (++ " ") args) ++ ") " ++ show expr ++ ")"
showLispVal (Function args expr) = "(lambda (" ++ initSafe (concatMap (++ " ") args) ++ ") " ++ show expr ++ ")"
showLispVal (Function args expr) = "(lambda (" ++ initSafe (concatMap (++ " ") args) ++ ") " ++ show expr ++ ")"