spamDelays i = do
    putStr $ "\r" ++ show i
    hFlush stdout
    d <- newDelay 100000000
    threadDelay 1000
    cancelDelay d
    spamDelays $! i+1
spamDelays i = do
    putStr $ "\r" ++ show i
    hFlush stdout
    d <- newDelay 100000000
    threadDelay 1000
    cancelDelay d
    spamDelays $! i+1
spamDelays i = do
    putStr $ "\r" ++ show i
    hFlush stdout
    d <- newDelay 100000000
    threadDelay 1000
    cancelDelay d
    spamDelays $! i+1