a # 1 60 R 'i # c gradeup k                                             '
a # a,[1]  'i # A c nform k                                             '
a # a,[1]  '$0                                                          '
a # a,[1]  '"gradeup - generate ascending row indices.                  '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-to sort a left-justified matrix alphabetically.           '
a # a,[1]  '"-c is a collating sequence; k is a character matrix.       '
a # a,[1]  '"-if unique distinctions occur only at right side, and if   '
a # a,[1]  '" the collating sequence is long, it may be necessary to    '
a # a,[1]  '" sort in more than one pass, first according to the        '
a # a,[1]  '" rightmost columns.                                        '
a # a,[1]  '"-uses: Hnform.                                             '
Lfx a