a # 1 60 R ' z#a compare b                                              '
a # a,[1]  ' z#(Xb_a)`O0 1 0                                            '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"compare is used in e.g. headeron.                          '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a