a # 1 63 R ' r#s enc a                                                     '
a # a,[1]  ' r#((1+Ss@1SS/,a)Rs)Na                                         '
a # a,[1]  '"enq - generate sufficient encoding positions                  '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.    '
a # a,[1]  '"encode(N) and decode(B) would be fully complementary if       '
a # a,[1]  '"sufficient radix positions could be supplied. Genc will       '
a # a,[1]  '"perform the full representation of its argument, according to '
a # a,[1]  '"the radix, s. (s>1)&(1KD/a)                                   '
Lfx a