[Haskell-cafe] writing to a fifo when the reader stops reading