a # 1 60 R ' r#a is b                                                   '
a # a,[1]  ' r#(0^=0\0Ra)=0^=0\0Rb                                      '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"is - true, if both numeric, or if both character.          '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a