Х-ь клёвый язык, скобки тоже. Почему бы не скрестить их между собой?

(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))