in a
in b
ld a :A
cmp b
jeq C
jgt B
ld b
sub a
st b
jmp A
sub b :B
st a
jmp A
out a :C
end