myLines :: String -> [String]
myLines s = go s []
  where go s acc = 
          case s of
            [] -> acc
            _  -> takeWhile (/= '\n') s : 
                  go (dropWhile (== '\n') $ dropWhile (/= '\n') s) acc
myLines :: String -> [String]
myLines s = go s []
  where go s acc = 
          case s of
            [] -> acc
            _  -> takeWhile (/= '\n') s : 
                  go (dropWhile (== '\n') $ dropWhile (/= '\n') s) acc
myLines s = go s []
  where go s acc = 
          case s of
            [] -> acc
            _  -> takeWhile (/= '\n') s : 
                  go (dropWhile (== '\n') $ dropWhile (/= '\n') s) acc