more Compressed Sequence

Haskell