unCommand :: Command -> InterpreterState
runCommand (Command n op) = do
	out <- replicateM n $ runOp op
	return $ last out

runCommand :: Command -> InterpreterState
runCommand (Command n op) = do
	out <- replicateM n $ runOp op
	return $ last out
runCommand (Command n op) = do
	out <- replicateM n $ runOp op
	return $ last out