--- nounVerbResult :: Int -> Int -> Machine -> Int
--- nounVerbResult noun verb machine = machineOutput nvMachine
--- where nvMachine0 = machineNounVerb machine noun verb
--- nvMachine = execState runAll nvMachine0
-
--- machineNounVerb :: Machine -> Int -> Int -> Machine
--- machineNounVerb machine noun verb = machine { _memory = M.insert 1 noun $ M.insert 2 verb $ _memory machine }
-
--- machineOutput :: Machine -> Int
--- machineOutput machine = (_memory machine)!0
-