[Haskell-cafe] Re: turning an imperative loop to Haskell