a # 1 60 R ' t#floating a                                               '
a # a,[1]  ' t#(~integer a)&(~logical a)&~character a                   '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"floating - returns 1 if at least one member of argument    '
a # a,[1]  '"is not an integer.                                         '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a