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