[Haskell-cafe] forkIO preemption