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

beginfig(1)
path paaab ;
 paaab:=makepath pencircle ;
path paaac ;
 paaac:=paaab scaled 5mm ;
pair zaaad ;
 zaaad = ( 1mm , 2mm ) ;
path paaae ;
 paaae:=paaac xscaled 1.0 ;
draw paaae     ;
 path paaaf ;
 paaaf:=paaac xscaled 2.0 ;
draw paaaf     ;
 path paaag ;
 paaag:=paaac xscaled 3.0 ;
draw paaag     ;
 path paaah ;
 paaah:=paaac xscaled 4.0 ;
draw paaah     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;