Hi All, I am looking to make a simple program that polls an interface once a second or so. I thought I could use threadDelay for this, so knocked up the following toy program to test my idea. module TD where import Control.Concurrent import Control.Concurrent.MVar main :: IO () main = do mv <- newEmptyMVar forkIO $ loop mv 0 "Hai" takeMVar mv return () where loop mv n msg = do putStrLn msg threadDelay 10000 if n < 10 then loop mv (n+1) msg else putMVar mv () It doesn't work, in as much as I see all the messages printed seemingly as fast as Std out will print them. What am I doing wrong? All help is much appreciated, Ben