: TEST
   DUP . ": " TYPE
   DUP CASE
      1 OF "1\n" TYPE ENDOF
      2 OF "2\n" TYPE ENDOF
      DUP 0<= OF? "nonpositive\n" TYPE ENDOF
      DUP 5 <= OF? "3…5\n" TYPE ENDOF
      "other\n" TYPE
   ENDCASE DROP ;

{ 7 0 ?DO I TEST LOOP } EXECUTE