-- Getter and setter of the G-machine state
getOutput :: GMState -> GMOutput
getOutput (o, _, _, _, _, _, _) = o
getOutput :: GMState -> GMOutput
getOutput (o, _, _, _, _, _, _) = o
getOutput (o, _, _, _, _, _, _) = o