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