putCode :: GMCode -> GMState -> GMState
putCode newCode (output, _, stack, dump, heap, globals, stats) 
    = (output, newCode, stack, dump, heap, globals, stats)
putCode :: GMCode -> GMState -> GMState
putCode newCode (output, _, stack, dump, heap, globals, stats) 
    = (output, newCode, stack, dump, heap, globals, stats)
putCode newCode (output, _, stack, dump, heap, globals, stats) 
    = (output, newCode, stack, dump, heap, globals, stats)