Х-ь клёвый язык, скобки тоже. Почему бы не скрестить их между собой?
(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))