l 10
% start
i dup put
i lit1 sub
i dup lit0
i equ
b start
i hlt