- -- let config = AppConfig {cfgMaxRun = 500000}
- -- m0 = emptyMachine {instructions=instrs}
- -- -- res = runState (runReaderT (runMachine "") config) st
- -- res = evalState (runReaderT (runMachine "") config) m0
- -- in print res -- (signal, st')