putOutput :: GMOutput -> GMState -> GMState
putOutput o' (_, i, stack, dump, heap, globals, stats) 
    = (o', i, stack, dump, heap, globals, stats)
putOutput :: GMOutput -> GMState -> GMState
putOutput o' (_, i, stack, dump, heap, globals, stats) 
    = (o', i, stack, dump, heap, globals, stats)
putOutput o' (_, i, stack, dump, heap, globals, stats) 
    = (o', i, stack, dump, heap, globals, stats)