gistfile1.hs

import System.IO
import Control.Concurrent

seconds ms = ms * 1000000
repfn fn t = do threadDelay t
                fn
                repfn fn t

main = repfn fn $ seconds 1
    where fn = do putStr "hello world\n"
                  hFlush stdout