input mp-tool;
verbatimtex \input dplain etex

beginfig(1);
path p, q ; p := unitsquare xscaled 90 yscaled 40;
q := p shifted (0,70); fill q withcolor white; draw q;
label(btex \vbox{\hbox{department}} etex, center q);
q := p shifted (0,0); fill q withcolor white; draw q;
label(btex \vbox{\hbox{employee}} etex, center q);
draw (45,40)--(45,70);
endfig;
end;
