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 ) ;
pair zaaae ;
 zaaae = 0 * zaaad;
path paaaf ;
 paaaf:=paaac shifted zaaae ;
draw paaaf     ;
 pair zaaag ;
 zaaag = 1.0 * zaaad;
path paaah ;
 paaah:=paaac shifted zaaag ;
draw paaah     ;
 pair zaaai ;
 zaaai = 2.0 * zaaad;
path paaaj ;
 paaaj:=paaac shifted zaaai ;
draw paaaj     ;
 pair zaaak ;
 zaaak = 3.0 * zaaad;
path paaal ;
 paaal:=paaac shifted zaaak ;
draw paaal     ;
 pair zaaam ;
 zaaam = 4.0 * zaaad;
path paaan ;
 paaan:=paaac shifted zaaam ;
draw paaan     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;