a # 1 60 R ' r#b confrac n;Lio;nn;bb;Lct                                '
a # a,[1]  ' Lct#1e-15                                                  '
a # a,[1]  ' $0 if 0=nn#1||n,r#ILio#j#0                                 '
a # a,[1]  'back:r#r,Dnn%bb#b*_j#j+1                                    '
a # a,[1]  ' $back if 1^=1+nn#bb|nn                                     '
a # a,[1]  ' r#''.'',`d`i`g`i`t`s[r]                                      '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"confrac is used in e.g. conv                               '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"converts decimal fractions                                 '
Lfx a