input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
%   filenametemplate
%else:
%   outputtemplate :=
%fi
% "%j.eps";

beginfig(1)
pair zaaab ;
 zaaab = ( 0 , 0 ) ;
numeric xaaac ;
 xaaac = -1.0 * 0.5cm;
numeric xaaad ;
 xaaad = 2.0 * 0.5cm;
pair zaaae ;
 zaaae = ( xaaac , xaaad ) ;
numeric xaaaf ;
 xaaaf = 4.0 * 0.5cm;
numeric xaaag ;
 xaaag = 3.0 * 0.5cm;
pair zaaah ;
 zaaah = ( xaaaf , xaaag ) ;
numeric xaaai ;
 pair zaaaj ;
 zaaaj = ( xaaag , 0 ) ;
path paaak ;
 paaak:=zaaab ..  controls  zaaae  and  zaaah .. zaaaj ;
pen qaaal ;
 qaaal = pencircle scaled 2pt ;
draw paaak   withpen qaaal   ;
 path paaam ;
 paaam:=zaaae -- zaaah;
draw paaam    dashed evenly  ;
 path paaan ;
 paaan:=zaaab -- zaaae;
drawarrow paaan     ;
 path paaao ;
 paaao:=zaaaj -- zaaah;
drawarrow paaao     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;