a # 1 60 R ' r#u trunc a                                                '
a # a,[1]  ' r#10|D|a%u                                                 '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"trunc - truncate gigher and lower order digits             '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-select particular decimal digit positions                 '
a # a,[1]  '"-explicit (input) decimal fractions will be returned       '
a # a,[1]  '" correctly. low-order digits of computed fractions may     '
a # a,[1]  '" not be exact in decimal representation.                   '
a # a,[1]  '" if u is any power of ten, then the corresponding decimal  '
a # a,[1]  '" position of a is returned.                                '
a # a,[1]  '" if u is a unit divisor, a is first converted to the new   '
a # a,[1]  '" unit, then the new units place is returned.               '
Lfx a