a # 1 60 R ' r#drep v ' a # a,[1] ' r#((vIv)=IRv)/v#,v ' a # a,[1] ' $0 ' a # a,[1] '"drep - select unique elements from any structure. ' a # a,[1] '"from ''the apl handbook of techniques'' copyright 1978, ibm. ' a # a,[1] '"useful in preparing special collating sequences. result ' a # a,[1] '"contains single appearance of each element, not rearranged.' Lfx a