a # 1 60 R ' r#k char n;Lio                                             '
a # a,[1]  '" k is single character to be placed according to positions '
a # a,[1]  '" of ones in n                                              '
a # a,[1]  ' r#(X/Rn)R'' ''H Lio#0                                        '
a # a,[1]  ' r[onesin,n]#k                                              '
a # a,[1]  ' r#(Rn)Rr                                                   '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"char - build character array to numeric pattern            '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-displays or other structures can be fashioned from        '
a # a,[1]  '" logical or numeric structures, later to be overlaid by    '
a # a,[1]  '" Gfills.                                                   '
a # a,[1]  '"-uses: Gonesin GH                                          '
Lfx a