1 [0 >] [dup put succ] while pop.