a # 1 60 R ' c#a fmul b                                                 '
a # a,[1]  ' c#(0,1Ua#float a)mul 0,1Ub#float b                         '
a # a,[1]  ' c#((1Ya)+(1Yb)_c),(c#(2_Rc)S2_(Ra)SRb)U1Uc                 '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"fmul - multiprecision floating point multiply              '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-a, b, and c are multiprecision floating point values.     '
a # a,[1]  '" (see description for Gfadd)                               '
a # a,[1]  '"-the precision of the result is the same or slightly       '
a # a,[1]  '" greater than the smaller of the precisions of the two     '
a # a,[1]  '" operands.                                                 '
a # a,[1]  '"-uses: Gfloat Gmul                                         '
Lfx a