thread example code in haskell

Alarm.hs

module Main where

import Control.Concurrent
import Control.Monad
import System.Exit

data Alarm = Alarm {
      second  :: Int,
      message :: String
}

clock :: Alarm  -> IO ()
clock alarm = do
    threadDelay $ (second alarm)* 1000000
    putStrLn $ message alarm

main :: IO ()
main = do
    input <- getLine

    when (null input) $ exitSuccess

    let inputs = words input
        second = read $ head inputs
        message = unwords $ tail inputs
    forkIO $ clock $ Alarm second message
    main