[Haskell-cafe] foldl to foldl' , ok ; but with foldM ?