[Haskell-cafe] some algorithm help with jhc