showError :: LError -> String
showError (NumArgs expected found) = "((make-error :num-args) " ++ show expected ++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") found) ++ "])"
showError :: LError -> String
showError (NumArgs expected found) = "((make-error :num-args) " ++ show expected ++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") found) ++ "])"
showError (NumArgs expected found) = "((make-error :num-args) " ++ show expected ++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") found) ++ "])"