a # 1 60 R 't # character a                                             '
a # a,[1]  '"returns 1 if argument is character.                        '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  't # 0 ^= 0 \ 0 R a                                          '
Lfx a