a # 1 60 R 'z # a adjustup b;c;d;Lio                                    '
a # a,[1]  '"adjustup - extend the ''|'' up one line in report formatting.'
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-uses: if index rowindices h                               '
a # a,[1]  ' $0 if 0Zc#1YRd#b[((|a)_1YRb)rowindices z#b;] H Lio#1       '
a # a,[1]  ' $l1 if cK3                                                 '
a # a,[1]  ' d#d[I3;]                                                   '
a # a,[1]  'l1:z[a;''|''index d]#''|''                                      '
Lfx a