[Haskell-cafe] Composing functions with runST