lines' :: String -> [String]
lines' = map go . lines where
  go [] = []
  go ('\r':[]) = []
  go (x:xs) = x : go xs
lines' :: String -> [String]
lines' = map go . lines where
  go [] = []
  go ('\r':[]) = []
  go (x:xs) = x : go xs
lines' = map go . lines where
  go [] = []
  go ('\r':[]) = []
  go (x:xs) = x : go xs