Haskellで定期実行

chan1.hs

import Control.Concurrent (forkIO, threadDelay)
import Control.Concurrent.Chan (newChan, readChan)
import Control.Monad (forever)

every :: Int -> IO a -> IO ()
every time io = forever $ do
    threadDelay (time * 1000000)
    io

main :: IO ()
main = do
    _ <- forkIO $ every 3 $ putStrLn "3"
    _ <- forkIO $ every 5 $ putStrLn "5"
    newChan >>= readChan