a # 1 60 R ' colform;r                                                  '
a # a,[1]  ' $0 if 0=(RRa)XRRb                                          '
a # a,[1]  ' a#((1YRa),r)Ya H b#((1YRb),r#(1URa)S1URb)Yb                '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"colform is used by e.g. rcat.                              '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"assumes localized a and b.                                 '
Lfx a