[Haskell-cafe] Something like scan1