Moved from forkIO/Chan to STM