a # 1 61 R ' r#erect a;Lio;l;s;d;cols;rows;z                             '
a # a,[1]  '"avoids outer product for speed; assumes blank delimiters    '
a # a,[1]  ' cols#S/d#-1+diff 0,sIIrows#1+-1Ys#+\l#'' ''=a#dltmb a H Lio#1 '
a # a,[1]  ' z#(rowsXcols)R'' ''                                           '
a # a,[1]  ' z[((~l)/+\l\cols_-1Ud)+I+/~l]#(~l)/a                        '
a # a,[1]  ' r#(rows,cols)Rz                                             '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"erect - erect work matrix from character structure          '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
a # a,[1]  '"-builds table that can be addressed randomly or sequentially'
a # a,[1]  '"-input word separators are single or multiple blanks        '
a # a,[1]  '"-input need not be a vector.                                '
a # a,[1]  '"-high-speed design computes addresses. (see Gshape)         '
a # a,[1]  '"-uses: Gdiff Gdltmb Gh                                      '
Lfx a