-- ==========================================================--
--
leChunk :: Int -> (Char -> Bool) -> String -> (String, Int, String)

leChunk n proper [] 
  = ([], n, [])
leChunk :: Int -> (Char -> Bool) -> String -> (String, Int, String)
leChunk n proper [] 
  = ([], n, [])
leChunk n proper [] 
  = ([], n, [])