a # 1 60 R ' r#a comb b                                                 '
a # a,[1]  ' cformat                                                    '
a # a,[1]  ' deblank                                                    '
a # a,[1]  ' uniq                                                       '
a # a,[1]  ' r#(,T((Rb),Ra)Ra),[Lio+0.5],((Ra),Rb)Rb                    '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"comb - all combinations of elements                        '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-juxtapose each unique element of a with each unique       '
a # a,[1]  '" element of b, disregarding blanks.                        '
a # a,[1]  '"-a and b can be character or numeric structures.           '
a # a,[1]  '"-uses: Gcformat Gdeblank Guniq                             '
a # a,[1]  '" cformat, deblank, and uniq clean up globals a and b,      '
a # a,[1]  '" which are local here.                                     '
Lfx a