putDump :: GMDump -> GMState -> GMState
putDump dump' (output, i, stack, _, heap, globals, stats) 
    = (output, i, stack, dump', heap, globals, stats)
putDump :: GMDump -> GMState -> GMState
putDump dump' (output, i, stack, _, heap, globals, stats) 
    = (output, i, stack, dump', heap, globals, stats)
putDump dump' (output, i, stack, _, heap, globals, stats) 
    = (output, i, stack, dump', heap, globals, stats)