input boxes;
verbatimtex
etex
beginfig (1);
%h determines how much to scale your x coordinates, w scales your y coords
  h=1.5cm;
  w=1.5cm;
% howcome there isn't a godzillait?
  boxit.cu (btex \bf Culture \rm etex);
  circleit.ap (btex Apples etex) ;
  boxit.be (btex \vbox{\hbox{\it Super Powerful \rm} \hbox{BEARS}} etex);
  boxit.sy (btex \bf Syncretism \rm etex);

  %defne pairs for where you're going to place your boxes and circles
  cu.c=(0h,2w);
  ap.c=(4h,3w);
  be.c=(4h,1w);
  sy.c=(8h,2w);
  
  %fill circles/boxes with a white background
  forsuffixes s=cu,ap,be,sy:
  fill bpath.s withcolor white;
  endfor;

  %actually draw your boxes and circles
  pickup pencircle scaled 1.5pt;
  drawboxed (cu,ap,be,sy);

  drawarrow cu.c--ap.c cutbefore bpath cu cutafter bpath ap;
  drawarrow ap.c--sy.c cutbefore bpath ap cutafter bpath sy;
  drawarrow cu.c--be.c cutbefore bpath cu cutafter bpath be;
  drawarrow be.c--sy.c cutbefore bpath be cutafter bpath sy;
  drawarrow cu.c{dir-50}..{dir 50}sy.c cutbefore bpath cu cutafter bpath sy;
  drawarrow sy.c{dir 130}..{dir-130}cu.c cutbefore bpath sy cutafter bpath cu;
endfig;
end