module Main where

import FastString
import Control.Exception
import Control.Monad
import System.Mem
import FastStringEnv
import Module
import Data.IORef

mkString :: Int -> (FastString, Int)
mkString n = ((mkFastString (show n <> "test-string")), n)

main = do
  forM_ [0..5] $ \i -> do
    print i
    let n = 1000000
    let ss = map mkString [i..i + 1000000]
    let env = mkFsEnv ss
    forM_ [i .. i + 1000000] $ \i -> do
      let (key, _) = mkString i
      evaluate $ lookupFsEnv_NF env key
    performGC