: test1 begin dup while 1 - dup . repeat ;
10 test1

: test2 begin 1 - dup . dup 0= until ;
10 test2