Перенос Слов На Haskell

Winter

New member
29.04.2014
1
0
#1
Здравствуйте. Вот есть программа для разбиения текста, находящегося в файле, на строки по n символов, но без разрыва слов. Помогите, пожалуйста, сделать этот самый перенос. Совершенно не представляю как его организовать.
Код:
grp :: [String] -> Int -> String -> [String]
grp [] _ line	 = [line]
grp (s:ss) n line | (length line)+1+(length s) <= n = grp ss n (line ++ " " ++ s)
| otherwise = [line] ++ (grp ss n s) 

formTxt :: String -> Int -> [String]
formTxt txt n = grp (words txt) n []