loop clock n = do
    sfSleep $ seconds 0.150
    time <- getElapsedTime clock
    if asSeconds time >= 1
        then putStrLn "tick" >> restartClock clock >> loop clock (n-1)
        else loop clock n
loop clock n = do
    sfSleep $ seconds 0.150
    time <- getElapsedTime clock
    if asSeconds time >= 1
        then putStrLn "tick" >> restartClock clock >> loop clock (n-1)
        else loop clock n
loop clock n = do
    sfSleep $ seconds 0.150
    time <- getElapsedTime clock
    if asSeconds time >= 1
        then putStrLn "tick" >> restartClock clock >> loop clock (n-1)
        else loop clock n