( Test_Stuff)

: .. . KEY DROP ;

: test1
   20 -10 DO I 
           BEGIN 1+ DUP . DUP 
           WHILE ." during " DUP ..
           REPEAT ." after "
          LEAVE LOOP DROP ;

: test2 20 -10 DO I
                BEGIN 1+ DUP .. DUP 0=
                UNTIL 
               LEAVE LOOP DROP ;

: test3 20 -10 DO I
                BEGIN 1+ DUP ..
               AGAIN LOOP ;

: test4   ( n ...)
   BEGIN  1+ DUP .. DUP 0=  UNTIL DROP ;

: lve_test 20 -10 DO I DUP .. 0=  IF LEAVE ENDIF LOOP ;

( -10 test4 ." OK")


