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