Х-ь клёвый язык, скобки тоже. Почему бы не скрестить их между собой? (take 7 (mySeq "1")) -- ["1","11","21","1211","111221","312211","13112221"] -- Implementation import Control.Concatenative import Data.List mySeq = (iterate (concatMap (bi (show . length) (take 1) (++)) . group))