main
        data a
        data b

        jmp allstop
 bstart push b
        jmp allstop
 astart push a
 allstop nop

        pop a
        dup
        jfalse answer
        pop b
        push b
        push a

        ge
        jtrue astart
        push 0
        jfalse bstart

 answer push a
        swap
        drop
end main