a # 1 60 R ' conform;j;k;r ' a # a,[1] ' r#(j#RRa)Sk#RRb ' a # a,[1] ' $0 if 0=jXk ' a # a,[1] ' a#r struct a H b#r struct b ' a # a,[1] ' a#rYa H b#(r#(Ra)SRb)Yb ' a # a,[1] ' $0 ' a # a,[1] '"conform - used in e.g. fills. ' a # a,[1] '"from ''the apl handbook of techniques'' copyright 1978, ibm. ' Lfx a