Concurrent Haskell problem/bug