a # 1 60 R ' r#dtmb k;a;z                                               '
a # a,[1]  ' r#(zV1`Oz#a^='' '')/a#,'' '',k                                 '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"dtmb - delete trailing and multiple blanks                 '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a