genSuite :: TestMaker -> String -> [String] -> IO Test.Framework.Test
genSuite mkCase name xs = do
    confArgs <- processInstructions =<< treatArgs optionsForStandardGenI xs
    let pst = emptyProgState (noGui confArgs)
    pstRef <- newIORef pst
    wrangler <- defaultCustomSem pst
    loadEverything pstRef wrangler
    suite <- case getListFlag TestInstructionsFlg confArgs of
                 []  -> error "NLP.GenI.Regression: not expecting empty instructions"
                 [x] -> loadNextSuite pstRef wrangler x
                 _   -> error "NLP.GenI.Regression: not expecting multiple instructions"
    return . testGroup name $ map (mkCase pstRef wrangler) suite
genSuite :: TestMaker -> String -> [String] -> IO Test.Framework.Test
genSuite mkCase name xs = do
    confArgs <- processInstructions =<< treatArgs optionsForStandardGenI xs
    let pst = emptyProgState (noGui confArgs)
    pstRef <- newIORef pst
    wrangler <- defaultCustomSem pst
    loadEverything pstRef wrangler
    suite <- case getListFlag TestInstructionsFlg confArgs of
                 []  -> error "NLP.GenI.Regression: not expecting empty instructions"
                 [x] -> loadNextSuite pstRef wrangler x
                 _   -> error "NLP.GenI.Regression: not expecting multiple instructions"
    return . testGroup name $ map (mkCase pstRef wrangler) suite
genSuite mkCase name xs = do
    confArgs <- processInstructions =<< treatArgs optionsForStandardGenI xs
    let pst = emptyProgState (noGui confArgs)
    pstRef <- newIORef pst
    wrangler <- defaultCustomSem pst
    loadEverything pstRef wrangler
    suite <- case getListFlag TestInstructionsFlg confArgs of
                 []  -> error "NLP.GenI.Regression: not expecting empty instructions"
                 [x] -> loadNextSuite pstRef wrangler x
                 _   -> error "NLP.GenI.Regression: not expecting multiple instructions"
    return . testGroup name $ map (mkCase pstRef wrangler) suite