initState :: MipsEnv ()
initState = do
  state <- get
  let iregs = intRegisters state
  put state { intRegisters = replicate 32 0, memory = replicate 640000 0 }
initState :: MipsEnv ()
initState = do
  state <- get
  let iregs = intRegisters state
  put state { intRegisters = replicate 32 0, memory = replicate 640000 0 }
initState = do
  state <- get
  let iregs = intRegisters state
  put state { intRegisters = replicate 32 0, memory = replicate 640000 0 }