[Haskell-beginners] Thread Blocking