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 ;
 path paaag ;
 paaag:=paaad scaled 5mm ;
draw paaae     ;
 pair zaaah ;
 zaaah = dir 45.0 ;
pair zaaai ;
 zaaai = 1cm * zaaah;
path paaaj ;
 paaaj:=paaag shifted zaaai ;
draw paaaj     ;
 pair zaaak ;
 zaaak = dir 135.0 ;
pair zaaal ;
 zaaal = 1cm * zaaak;
path paaam ;
 paaam:=paaag shifted zaaal ;
draw paaam     ;
 Paaac := currentpicture;
 currentpicture :=  Paaab ;
 pair zaaan ;
 zaaan = ( 0 , 0 ) ;
pair zaaao ;
 zaaao = ( 1mm , 1mm ) ;
pair zaaap ;
 zaaap = ( 2mm , 2mm ) ;
picture Paaaq ;
 Paaaq:=Paaac shifted zaaan ;
draw Paaaq     ;
 picture Paaar ;
 Paaar:=Paaac shifted zaaao ;
draw Paaar     ;
 picture Paaas ;
 Paaas:=Paaac shifted zaaap ;
draw Paaas     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;