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