module Main where

import System.IPC
import Control.Concurrent.STM
import Control.Concurrent

main = do
    q <- channelConnectSimple "Test"
    mapM_ (\x -> send q ("Hello: " ++ (show x))) [1..1000]
    waitTillEmpty q
    threadDelay 1000