showLispVal (List lis) = "[" ++ initSafe (concatMap (\l -> show l ++ " ") lis) ++ "]"
showLispVal (List lis) = "[" ++ initSafe (concatMap (\l -> show l ++ " ") lis) ++ "]"
showLispVal (List lis) = "[" ++ initSafe (concatMap (\l -> show l ++ " ") lis) ++ "]"