/* REXX
*/
address ISREDIT
"MACRO"
"X ALL"
"F ALL '^' "
"C ALL NX '^=' '<>' "                  /* not equal                  */
"C ALL NX '^'  '\' "                   /* 'not'                      */
exit