module Main where

import System.IPC
import Control.Concurrent.STM
import Control.Concurrent (threadDelay)
import Control.Monad 

main = do
    q <- channelAcceptSimple "Test"
    forever (do x <- recv q
                putStrLn x )
    threadDelay 10000