a # 1 60 R ' r#str blank a;Lio                                          '
a # a,[1]  '"if str appears in a it will become blank(or 0)             '
a # a,[1]  ' r[(X/Ra)lim(str loc r)J.+IR,str]#0\''''Ra H r#,a H Lio#0     '
a # a,[1]  ' r#(Ra)Rr                                                   '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"blank - delete specific string from structure              '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-if a report, or any structure, contains unwanted items,   '
a # a,[1]  '" numeric or character strings, then every appearance of the'
a # a,[1]  '" specified string will be replaced by blanks, or by zero,  '
a # a,[1]  '" if a is a numeric structure.                              '
a # a,[1]  '"uses: Gloc Glim GH                                         '
Lfx a