picture v;
def c = currentpicture enddef;
forever:
  v:=c;
  showit;
  addto c also c shifted left + c shifted right;
  addto c also c shifted up + c shifted down;
  addto c also c-v;
  cull c keeping (5,7);
endfor