a # 1 60 R ' r#kv cited a                                               '
a # a,[1]  ' r#'' ''shape(~rEkv)/r#(^=\rEkv)/r#,a                         '
a # a,[1]  ' r#r[av gradeup r;]                                         '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"cited - extract cited strings from character arrays        '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-strings of non-blank information, demarked by the         '
a # a,[1]  '" characters proffered as kv, will be extracted, shaped as  '
a # a,[1]  '" a matrix, and sorted.                                     '
a # a,[1]  '"-uses: Gshape Ggradeup (and global variable "av")          '
Lfx a