doLt :: GMState -> GMState
doLt state = state'
    where
        state' = putStack as (boxBoolean True state)
        (a0:a1:as) = getStack state
        result = (<) (unboxInteger a0 state) (unboxInteger a1 state)
doLt :: GMState -> GMState
doLt state = state'
    where
        state' = putStack as (boxBoolean True state)
        (a0:a1:as) = getStack state
        result = (<) (unboxInteger a0 state) (unboxInteger a1 state)
doLt state = state'
    where
        state' = putStack as (boxBoolean True state)
        (a0:a1:as) = getStack state
        result = (<) (unboxInteger a0 state) (unboxInteger a1 state)