: TEST
   DUP . ": " TYPE
   DUP 1 = IF "1\n" TYPE
   ELSE-IF DUP 2 = THEN-IF "2\n" TYPE
   ELSE-IF DUP 0<= THEN-IF "nonpositive\n" TYPE
   ELSE-IF DUP 5 <= THEN-IF "3…5\n" TYPE
   ELSE "other\n" TYPE
   THEN DROP ;

{ 7 0 ?DO I TEST LOOP } EXECUTE