: 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