ppLex :: [L] -> String
ppLex = unwords . map fix
  where
    fix (Token s) = s
    fix (String s) = "\"" ++ s ++ "\""
    fix (Comment s) = "#" ++ s
ppLex :: [L] -> String
ppLex = unwords . map fix
  where
    fix (Token s) = s
    fix (String s) = "\"" ++ s ++ "\""
    fix (Comment s) = "#" ++ s
ppLex = unwords . map fix
  where
    fix (Token s) = s
    fix (String s) = "\"" ++ s ++ "\""
    fix (Comment s) = "#" ++ s