[Haskell-cafe] translate imperative pseudo code into haskell