[Haskell-cafe] CPS and the product function