example from https://tarquin-the-brave.github.io/blog/posts/re-learning-haskell-2/

playgame2.hs

import Control.Monad.State.Lazy (state, StateT)
import Control.Monad.IO.Class (liftIO)
import System.Console.ANSI (cursorUp)

playGame :: [Int] -> StateT Game IO Int
playGame inp = do
  liveData <- stepGame inp
  game <- get

  --
  -- Display the game state in a grid to stdout
  --
  let grid = gridDisplay $ gameDisplay game
  _ <- liftIO $ mapM print grid
  liftIO . print $ ("Your score: " ++ show (sc liveData))
  liftIO . cursorUp $ (length grid) + 1

  case IC.progState (gameProg game) of
    IC.AwaitInput -> playGame [joystick (xb liveData) (xp liveData)]
    _ -> return $ sc liveData

stepGame :: [Int] -> StateT Game IO LiveData
stepGame = state . stepGame'