putStack :: GMStack -> GMState -> GMState
putStack newStack (output, code, _, dump, heap, globals, stats) 
    = (output, code, newStack, dump, heap, globals, stats)
putStack :: GMStack -> GMState -> GMState
putStack newStack (output, code, _, dump, heap, globals, stats) 
    = (output, code, newStack, dump, heap, globals, stats)
putStack newStack (output, code, _, dump, heap, globals, stats) 
    = (output, code, newStack, dump, heap, globals, stats)