Drawing timer in Haskell

Timer.hs

import Control.Concurrent
import System.Process
import System.Environment

say str = system $ "say '" ++ str ++ "'"

timer :: Int -> IO ()
timer 1 = do
    say "one minute left! oh crap!"
    threadDelay $ 30 * 1000 * 1000
    say "thirty seconds left!!!"
    threadDelay $ 30 * 1000 * 1000
    say "time is up!"
    putStrLn "\a"

timer m = do
    say $ show m ++ " minutes left"
    threadDelay $ 60 * 1000 * 1000
    timer (m - 1)

main = do
    say "starting timer"
    threadDelay $ 4 * 1000 * 1000
    getArgs >>= timer . read . head

Usage: ./Timer 5