remove hased arrays inside block



method 4 seems to work: use apply ('remarray, list) inside
block
------------------
(%i1) display2d:false$
(%i2) [p1[0],p1[1],p2[0],p2[1]] : [E,p,M,q]$
(%i3) arrays;
(%o3) [p1,p2]
(%i4) listarray(p1);
(%o4) [E,p]
(%i5) remha4( [v] ) := block (
        apply ('remarray, v)  )$
(%i6) remha4 (p1);
(%o6) [p1]
(%i7) arrays;
(%o7) [p2]
(%i8) p1[0];
(%o8) p1[0]
(%i9) remha4 (p2);
(%o9) [p2]
(%i10) arrays;
(%o10) []
(%i11) p1[0];
(%o11) p1[0]
------------------------
But why don't methods 1 thru 3 do the job as well??

Ted