Wearing the hair shirt Wearing the hair shirt - Microsoft Research

Control structures
Values of type (IO t) are first class
So we can define our own “control structures”
forever :: IO () -> IO ()
forever a = do { a; forever a }
repeatN :: Int -> IO () -> IO ()
repeatN 0 a = return ()
repeatN n a = do { a; repeatN (n-1) a }
e.g. repeatN 10 (putChar ‘x’)