ALSO UTILITY

: TSTR "019AFGZafgz[{.:}] \0\a\b\t\n\v\f\r\e\"\'\\\x1f\x7f▪" ;

: CHECK  ( xt -- )
   DUP >NAME TYPE ": " TYPE
   "\"" TYPE ▪ TSTR 0 DO
      DUP I + C@
      2 PICK EXECUTE
      IF DUP I + 1 TYPE-ESCAPED THEN
   LOOP "\"\n" TYPE ;

: ANY? DROP TRUE ;

' ANY? CHECK
' ASCII? CHECK
' BLANK? CHECK
' CNTRL? CHECK
' DIGIT? CHECK
' GRAPH? CHECK
' LOWER? CHECK
' UPPER? CHECK
' PRINT? CHECK
' SPACE? CHECK
' ALPHA? CHECK
' ALNUM? CHECK
' PUNCT? CHECK
' XDIGIT? CHECK