putStats :: GMStats -> GMState -> GMState
putStats newStats (ouptut, code, stack, dump, heap, globals, _) 
    = (ouptut, code, stack, dump, heap, globals, newStats)
putStats :: GMStats -> GMState -> GMState
putStats newStats (ouptut, code, stack, dump, heap, globals, _) 
    = (ouptut, code, stack, dump, heap, globals, newStats)
putStats newStats (ouptut, code, stack, dump, heap, globals, _) 
    = (ouptut, code, stack, dump, heap, globals, newStats)