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

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

命令型ならこんな感じのコードになると思います。

    Max = 0;
    func getRandom = RandRange(0,Max);
 
    
    func main = {
      Max=100;
      print(getRandom()); // 出力 50 等
      Max=1000;
      print(getRandom()); // 出力 500 等
    }