[Haskell-cafe] Re: Simplification of this function?