[Haskell-cafe] Concurrency strategy for 2 threads and rare events