a # 1 60 R ' r#unscan v                                                 '
a # a,[1]  ' r#v[Lio],diff v                                            '
a # a,[1]  '" v#$+\r                                                    '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"unscan                                                     '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a