gmDispatch :: Instruction -> GMState -> GMState
gmDispatch (PushGlobal f) = pushGlobal f
gmDispatch :: Instruction -> GMState -> GMState
gmDispatch (PushGlobal f) = pushGlobal f
gmDispatch (PushGlobal f) = pushGlobal f