HaskellのStateTの使い方を理解するため、
乱数の最大値を保存するコードを書こうとしているのですが、いまいち分りません。以下現在のコードです

    import System.Random
    import Control.Monad.State
    
    getRandom :: Int -> IO Int
    getRandom x = getStdRandom $ randomR (0,x)

    getCurrent :: StateT Int IO Int
    getCurrent = do
      i <- get
      x <- lift $ getRandom i
      return x
    
    updateMax :: x -> StateT Int IO ()
    updateMax x = do
      put x
    
    main = do
      a <- flip evalState 0 $ do
        updateMax 1000
        getCurrent
      print a

どうなれば最大値を更新・保存するように出来るでしょうか?