[Haskell-cafe] tail recursion