a # 1 60 R 'z # fix x                                                   '
a # a,[1]  '"fix - convert to multiprecision integer.                   '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-if x is scalar, it is rounded and catenated behind a zero.'
a # a,[1]  '" if x is mp integer, it is left unchanged.                 '
a # a,[1]  '" if x is multiprecision floating point, it is truncated to '
a # a,[1]  '" the multiprecision integer with the same leading segments.'
a # a,[1]  '"-see the descriptions for: fadd add                        '
a # a,[1]  '"-uses: can                                                 '
a # a,[1]  '$(1<Rz#x)/mp                                                '
a # a,[1]  '$0,z#can z                                                  '
a # a,[1]  'mp:$(0=1Yz)/0                                               '
a # a,[1]  'z#can(0S-1+(1Yx)+Rx)Y1Dx                                    '
Lfx a