a # 1 60 R 'r # c ljnform k                                             '
a # a,[1]  'r#c nform((1YRr),11)Yr#erect,k,'' ''                          '
a # a,[1]  '$0                                                          '
a # a,[1]  '"ljnform is used by e.g. gradeup.                           '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a