1 2 3 4 5 6 7 8 9 10 11 12
read label next dup push 1 < jmpt bye push 1 - dup print jmp next label bye