[Haskell-cafe] help in tree folding