a # 1 60 R ' t#integer a                                                '
a # a,[1]  ' $(character a)/t#0                                         '
a # a,[1]  ' t#0&.=1|,a                                                 '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"integer - returns 1 if structure contains only integers.   '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a