a # 1 61 R ' z # format a;b;e                                            '
a # a,[1]  '"format - convert multiprecision number to character string. '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
a # a,[1]  '"-returns a character string with seven-digit groups of      '
a # a,[1]  '" decimal points punctuated by single blanks or decimal      '
a # a,[1]  '" point.                                                     '
a # a,[1]  '" get the exponent, and insert leading and trailing zeroes   '
a # a,[1]  ' a#((0S2_e+Ra)R0),1Ua,(0Se#1Ya)R0                            '
a # a,[1]  ' z#( 8 0 F(|a)+10000000_(Ra)Y10000000),'' ''                   '
a # a,[1]  ' z[b#(8X1+IRa)_7XLio]#'' ''                                    '
a # a,[1]  '"insert decimal point on top of a blank, e groups from right '
a # a,[1]  ' z[1Y(-1De_1)Yb]#''.''                                         '
a # a,[1]  '"drop leading blanks, insert - just in front                 '
a # a,[1]  ' z#((0>1Ya)/''-''),(_Lio_(z='' '')I0)Uz                          '
Lfx a