a # 1 60 R ' r#onesin a;Lio                                             '
a # a,[1]  ' r#(Ra)Nr/IRr#,1=a+Lio#0                                    '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"onesin - locate ones in numeric structure                  '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"an array of ones and zeros may have been the result of a   '
a # a,[1]  '"test of another array.  this function will convert the ones'
a # a,[1]  '"to their own locations (Lio#0) by columns, that can readily'
a # a,[1]  '"be used to generate subscripts that relate to the source.  '
Lfx a