{-# OPTIONS -O #-}

module ShouldCompile where

import Control.Concurrent 
import Simpl006Help

after :: Int -> IO a -> IO a
after d c = c

every :: Int -> IO a -> IO ()
every d c = forever (after d c)


