gmStep :: GMState -> GMState
gmStep state = gmDispatch i (putCode is state)
    where (i:is) = getCode state
gmStep :: GMState -> GMState
gmStep state = gmDispatch i (putCode is state)
    where (i:is) = getCode state
gmStep state = gmDispatch i (putCode is state)
    where (i:is) = getCode state