input boxes;

vardef lesboites (text t) :=
   forsuffixes $=t :
     boxit.$(str $);
   endfor;
enddef;

beginfig(0);
   lesboites(elsa,david,yann,sarah);
   elsa.e-david.w=yann.e-sarah.w=-(1cm,0);
   david.e-yann.w=-(3cm,0);
   %%
   draw bpath yann withcolor red;
   draw pic elsa withcolor blue;
   draw pic david;
   draw bpath sarah withcolor .5white;
endfig;
end