a # 1 60 R 'r # c shape x;l                                             '
a # a,[1]  'r#((=\x^='''''''')&xEc)/IRx#x,1Yc                               '
a # a,[1]  'l#S/r#r_Lio,1+-1Ur                                          '
a # a,[1]  'r#(0^=r)`/0 -1U((Rr),1+l)R(,(rJ.Z(~Lio)+Il),1)\x            '
a # a,[1]  '$0                                                          '
a # a,[1]  '"shape - shape matrix from character string                 '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-x is a character vector composed of phrases of variable   '
a # a,[1]  '" length, separated by any of the characters in vector c.   '
a # a,[1]  '"-a member of c may even be part of a phrase, if it is      '
a # a,[1]  '" surrounded by quotes in x.                                '
a # a,[1]  '+-see Herect.                                               '
Lfx a