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 * 1cm;
numeric xaaad ;
 xaaad = 2.0 * 1cm;
pair zaaae ;
 zaaae = ( xaaac , xaaad ) ;
numeric xaaaf ;
 xaaaf = 3.0 * 1cm;
pair zaaag ;
 zaaag = ( xaaaf , xaaaf ) ;
pair zaaah ;
 zaaah = ( xaaad , 0 ) ;
pen qaaai ;
 qaaai = pencircle scaled 4bp ;
draw zaaab   withpen qaaai   ;
 draw zaaae   withpen qaaai   ;
 draw zaaag   withpen qaaai   ;
 draw zaaah   withpen qaaai   ;
 path paaaj ;
 paaaj:=zaaab ..  controls  zaaae  and  zaaag .. zaaah ;
draw paaaj     ;
 pair zaaak ;
 zaaak = ( 0.5 ) [ zaaab , zaaae ] ;
pair zaaal ;
 zaaal = ( 0.5 ) [ zaaae , zaaag ] ;
pair zaaam ;
 zaaam = ( 0.5 ) [ zaaag , zaaah ] ;
pair zaaan ;
 zaaan = ( 0.5 ) [ zaaak , zaaal ] ;
pair zaaao ;
 zaaao = ( 0.5 ) [ zaaal , zaaam ] ;
pair zaaap ;
 zaaap = ( 0.5 ) [ zaaan , zaaao ] ;
draw zaaap   withpen qaaai   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;