[Haskell-cafe] Another STG optimization