a # 1 60 R ' i#p loc a;Lio                                              '
a # a,[1]  ' i#(Ra)N(&`/(IR,p)`O(,p)J.=,a)/IX/Ra H Lio#0                '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"loc - locate structured data                               '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-result is a matrix of the starting locations lio#0        '
a # a,[1]  '" if the entire structure was found at least once.          '
a # a,[1]  '" p is the search argument. (see Gonesin)                   '
a # a,[1]  '"-uses: GH                                                  '
Lfx a