putHeap :: GMHeap -> GMState -> GMState
putHeap newHeap (output, code, stack, dump, _, globals, stats) 
    = (output, code, stack, dump, newHeap, globals, stats)
putHeap :: GMHeap -> GMState -> GMState
putHeap newHeap (output, code, stack, dump, _, globals, stats) 
    = (output, code, stack, dump, newHeap, globals, stats)
putHeap newHeap (output, code, stack, dump, _, globals, stats) 
    = (output, code, stack, dump, newHeap, globals, stats)