fancy Haskell sequence