a # 1 60 R ' z#prepare a                                                '
a # a,[1]  ' $l1 if ~character a                                        '
a # a,[1]  ' $0 if 0=frametest z#matrix a                               '
a # a,[1]  ' $0,Rz#1 1U-1 -1Uz                                          '
a # a,[1]  'l1:z#tabulate a                                             '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"prepare - standardize structure for report formatting      '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-a subroutine that normalizes data for the formatting      '
a # a,[1]  '" functions: gbeside gcenteron gheaderon                    '
a # a,[1]  '"-uses: Gcharacter Gframetest Gmatrix Gtabulate Gif         '
Lfx a