Makin_Cakes.hs

{-# LANGUAGE OverloadedStrings #-}
import Control.Monad.State
import System.Posix.Unistd

makeStateBetter :: StateT Int IO ()
makeStateBetter = do
  curState <- get
  put (curState + 1)

pogamMonad :: StateT Int IO ()
pogamMonad = do
  makeStateBetter
  cake <- get
  lift (print cake)
  lift (sleep 1)
  pogamMonad

mainGuts :: Int -> IO ()
mainGuts n = do
  execStateT pogamMonad n
  return ()

main :: IO ()
main = mainGuts 4900