[Haskell-begin] Alternating sequence