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

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

: test3
    dup .
    begin
    1 - dup

    ." ( "
    5 begin dup while 1 - dup . repeat
    ." ) " drop

    .
    dup 0=
    until ;

3 test3