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;
numeric xaaag ;
 pair zaaah ;
 zaaah = ( xaaaf , xaaaf ) ;
numeric xaaai ;
 pair zaaaj ;
 zaaaj = ( xaaad , 0 ) ;
pen qaaak ;
 qaaak = pencircle scaled 4bp ;
draw zaaab   withpen qaaak   ;
 pen qaaal ;
 draw zaaae   withpen qaaak   ;
 pen qaaam ;
 draw zaaah   withpen qaaak   ;
 pen qaaan ;
 draw zaaaj   withpen qaaak   ;
 path paaao ;
 paaao:=zaaab ..  controls  zaaae  and  zaaah .. zaaaj ;
draw paaao     ;
 pair zaaap ;
 zaaap = ( 0.5 ) [ zaaab , zaaae ] ;
pair zaaaq ;
 zaaaq = ( 0.5 ) [ zaaae , zaaah ] ;
pair zaaar ;
 zaaar = ( 0.5 ) [ zaaah , zaaaj ] ;
pair zaaas ;
 zaaas = ( 0.5 ) [ zaaap , zaaaq ] ;
pair zaaat ;
 zaaat = ( 0.5 ) [ zaaaq , zaaar ] ;
pair zaaau ;
 zaaau = ( 0.5 ) [ zaaas , zaaat ] ;
pen qaaav ;
 draw zaaau   withpen qaaak   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;