decimate = vectorize(2):[1];
mean = _ <: _,mem : + : /(2);
left = _,!;
process = _ <: (mean:decimate),decimate <: left,-;