[Haskell-cafe] loop problem