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

beginfig(1)
picture Paaab ;
 Paaab:= nullpicture;
picture Paaac ;
 Paaac:= nullpicture;
Paaab := currentpicture;
 currentpicture := nullpicture;
 path paaad ;
 paaad:=makepath pencircle ;
path paaae ;
 paaae:=paaad scaled 1cm ;
path paaaf ;
 paaaf:=paaad scaled 5mm ;
draw paaae     ;
 pair zaaag ;
 zaaag = dir 45.0 ;
pair zaaah ;
 zaaah = 1cm * zaaag;
path paaai ;
 paaai:=paaaf shifted zaaah ;
draw paaai     ;
 pair zaaaj ;
 zaaaj = dir 135.0 ;
pair zaaak ;
 zaaak = 1cm * zaaaj;
path paaal ;
 paaal:=paaaf shifted zaaak ;
draw paaal     ;
 Paaac := currentpicture;
 currentpicture :=  Paaab ;
 pair zaaam ;
 zaaam = ( 0 , 0 ) ;
pair zaaan ;
 zaaan = ( 1mm , 1mm ) ;
pair zaaao ;
 zaaao = ( 2mm , 2mm ) ;
picture Paaap ;
 Paaap:=Paaac shifted zaaam ;
draw Paaap     ;
 picture Paaaq ;
 Paaaq:=Paaac shifted zaaan ;
draw Paaaq     ;
 picture Paaar ;
 Paaar:=Paaac shifted zaaao ;
draw Paaar     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;