Playing around with forkIO, STM, and goodies