[Haskell] Strange behaviour of forkIO threads