joe_fiorini.hs

{-# LANGUAGE FlexibleContexts #-}
module Main where

import System.IO
import Control.Monad
import Control.Monad.State

type MyApp = StateT [Int] IO

addEntry :: MonadState [Int] m => Int -> m Int
addEntry entry = do
  entries <- get
  put (entry : entries)
  return entry

mainLoop :: [Int] -> IO ()
mainLoop entries = do
  entry <- readLn
  newEntries <- execStateT (addEntry entry) entries
  print newEntries
  mainLoop newEntries

mainLoop2 :: MyApp ()
mainLoop2 = do
    entry <- liftIO $ do
        putStr "Enter a number: "
        readLn
    modify (entry:)
    current <- get
    unless (length current > 10) $
        liftIO (print current) >> mainLoop2

main :: IO ()
main = do
    hSetBuffering stdout NoBuffering
    execStateT mainLoop2 [] >>= print