showLispVal (Call expr args) = "(" ++ show expr ++ " " ++ initSafe (concatMap (\l -> show l ++ " ") args) ++ ")"
showLispVal (Call expr args) = "(" ++ show expr ++ " " ++ initSafe (concatMap (\l -> show l ++ " ") args) ++ ")"
showLispVal (Call expr args) = "(" ++ show expr ++ " " ++ initSafe (concatMap (\l -> show l ++ " ") args) ++ ")"