[Haskell-beginners] replacing fold with scan!