a # 1 60 R ' z#n from a;r;Lio                                           '
a # a,[1]  ' Lio#0                                                      '
a # a,[1]  ' r#RRz#1,a                                                  '
a # a,[1]  ' z#(z[1]+z[2Xr>1]XIn),(2+r>1)Uz#,z                          '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"from - see Gto.                                            '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a