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

beginfig(1)
numeric xaaab ;
 xaaab = -2.0 * 1cm;
pair zaaac ;
 zaaac = ( xaaab , 0 ) ;
numeric xaaad ;
 xaaad = 2.0 * 1cm;
pair zaaae ;
 zaaae = ( xaaad , 0 ) ;
path paaaf ;
 paaaf:=zaaac -- zaaae;
draw paaaf     ;
 pair zaaag ;
 zaaag = ( 0 , xaaab ) ;
pair zaaah ;
 zaaah = ( 0 , xaaad ) ;
path paaai ;
 paaai:=zaaag -- zaaah;
draw paaai     ;
 numeric xaaaj ;
 xaaaj = 1cm * 2.0;
pair zaaak ;
 zaaak = ( xaaab , xaaaj ) ;
numeric xaaal ;
 xaaal = 1cm * -2.0;
pair zaaam ;
 zaaam = ( xaaab , xaaal ) ;
path paaan ;
 paaan:=zaaak -- zaaam;
draw paaan     ;
 pair zaaao ;
 zaaao = ( xaaaj , xaaab ) ;
pair zaaap ;
 zaaap = ( xaaal , xaaab ) ;
path paaaq ;
 paaaq:=zaaao -- zaaap;
draw paaaq     ;
 numeric xaaar ;
 xaaar = -1.0 * 1cm;
pair zaaas ;
 zaaas = ( xaaar , xaaaj ) ;
pair zaaat ;
 zaaat = ( xaaar , xaaal ) ;
path paaau ;
 paaau:=zaaas -- zaaat;
draw paaau     ;
 pair zaaav ;
 zaaav = ( xaaaj , xaaar ) ;
pair zaaaw ;
 zaaaw = ( xaaal , xaaar ) ;
path paaax ;
 paaax:=zaaav -- zaaaw;
draw paaax     ;
 numeric xaaay ;
 xaaay = 0 * 1cm;
pair zaaaz ;
 zaaaz = ( xaaay , xaaaj ) ;
pair zaaba ;
 zaaba = ( xaaay , xaaal ) ;
path paabb ;
 paabb:=zaaaz -- zaaba;
draw paabb     ;
 pair zaabc ;
 zaabc = ( xaaaj , xaaay ) ;
pair zaabd ;
 zaabd = ( xaaal , xaaay ) ;
path paabe ;
 paabe:=zaabc -- zaabd;
draw paabe     ;
 numeric xaabf ;
 xaabf = 1.0 * 1cm;
pair zaabg ;
 zaabg = ( xaabf , xaaaj ) ;
pair zaabh ;
 zaabh = ( xaabf , xaaal ) ;
path paabi ;
 paabi:=zaabg -- zaabh;
draw paabi     ;
 pair zaabj ;
 zaabj = ( xaaaj , xaabf ) ;
pair zaabk ;
 zaabk = ( xaaal , xaabf ) ;
path paabl ;
 paabl:=zaabj -- zaabk;
draw paabl     ;
 pair zaabm ;
 zaabm = ( xaaad , xaaaj ) ;
pair zaabn ;
 zaabn = ( xaaad , xaaal ) ;
path paabo ;
 paabo:=zaabm -- zaabn;
draw paabo     ;
 pair zaabp ;
 zaabp = ( xaaaj , xaaad ) ;
pair zaabq ;
 zaabq = ( xaaal , xaaad ) ;
path paabr ;
 paabr:=zaabp -- zaabq;
draw paabr     ;
 pen qaabs ;
 qaabs = pencircle scaled 0.2bp ;
draw paaan   withpen qaabs   ;
 draw paaaq   withpen qaabs   ;
 numeric xaabt ;
 xaabt = -1.79998779296875 * 1cm;
pair zaabu ;
 zaabu = ( xaabt , xaaaj ) ;
pair zaabv ;
 zaabv = ( xaabt , xaaal ) ;
path paabw ;
 paabw:=zaabu -- zaabv;
draw paabw   withpen qaabs   ;
 pair zaabx ;
 zaabx = ( xaaaj , xaabt ) ;
pair zaaby ;
 zaaby = ( xaaal , xaabt ) ;
path paabz ;
 paabz:=zaabx -- zaaby;
draw paabz   withpen qaabs   ;
 numeric xaaca ;
 xaaca = -1.5999908447265625 * 1cm;
pair zaacb ;
 zaacb = ( xaaca , xaaaj ) ;
pair zaacc ;
 zaacc = ( xaaca , xaaal ) ;
path paacd ;
 paacd:=zaacb -- zaacc;
draw paacd   withpen qaabs   ;
 pair zaace ;
 zaace = ( xaaaj , xaaca ) ;
pair zaacf ;
 zaacf = ( xaaal , xaaca ) ;
path paacg ;
 paacg:=zaace -- zaacf;
draw paacg   withpen qaabs   ;
 numeric xaach ;
 xaach = -1.399993896484375 * 1cm;
pair zaaci ;
 zaaci = ( xaach , xaaaj ) ;
pair zaacj ;
 zaacj = ( xaach , xaaal ) ;
path paack ;
 paack:=zaaci -- zaacj;
draw paack   withpen qaabs   ;
 pair zaacl ;
 zaacl = ( xaaaj , xaach ) ;
pair zaacm ;
 zaacm = ( xaaal , xaach ) ;
path paacn ;
 paacn:=zaacl -- zaacm;
draw paacn   withpen qaabs   ;
 numeric xaaco ;
 xaaco = -1.1999969482421875 * 1cm;
pair zaacp ;
 zaacp = ( xaaco , xaaaj ) ;
pair zaacq ;
 zaacq = ( xaaco , xaaal ) ;
path paacr ;
 paacr:=zaacp -- zaacq;
draw paacr   withpen qaabs   ;
 pair zaacs ;
 zaacs = ( xaaaj , xaaco ) ;
pair zaact ;
 zaact = ( xaaal , xaaco ) ;
path paacu ;
 paacu:=zaacs -- zaact;
draw paacu   withpen qaabs   ;
 draw paaau   withpen qaabs   ;
 draw paaax   withpen qaabs   ;
 numeric xaacv ;
 xaacv = -0.79998779296875 * 1cm;
pair zaacw ;
 zaacw = ( xaacv , xaaaj ) ;
pair zaacx ;
 zaacx = ( xaacv , xaaal ) ;
path paacy ;
 paacy:=zaacw -- zaacx;
draw paacy   withpen qaabs   ;
 pair zaacz ;
 zaacz = ( xaaaj , xaacv ) ;
pair zaada ;
 zaada = ( xaaal , xaacv ) ;
path paadb ;
 paadb:=zaacz -- zaada;
draw paadb   withpen qaabs   ;
 numeric xaadc ;
 xaadc = -0.5999908447265625 * 1cm;
pair zaadd ;
 zaadd = ( xaadc , xaaaj ) ;
pair zaade ;
 zaade = ( xaadc , xaaal ) ;
path paadf ;
 paadf:=zaadd -- zaade;
draw paadf   withpen qaabs   ;
 pair zaadg ;
 zaadg = ( xaaaj , xaadc ) ;
pair zaadh ;
 zaadh = ( xaaal , xaadc ) ;
path paadi ;
 paadi:=zaadg -- zaadh;
draw paadi   withpen qaabs   ;
 numeric xaadj ;
 xaadj = -0.399993896484375 * 1cm;
pair zaadk ;
 zaadk = ( xaadj , xaaaj ) ;
pair zaadl ;
 zaadl = ( xaadj , xaaal ) ;
path paadm ;
 paadm:=zaadk -- zaadl;
draw paadm   withpen qaabs   ;
 pair zaadn ;
 zaadn = ( xaaaj , xaadj ) ;
pair zaado ;
 zaado = ( xaaal , xaadj ) ;
path paadp ;
 paadp:=zaadn -- zaado;
draw paadp   withpen qaabs   ;
 numeric xaadq ;
 xaadq = -0.1999969482421875 * 1cm;
pair zaadr ;
 zaadr = ( xaadq , xaaaj ) ;
pair zaads ;
 zaads = ( xaadq , xaaal ) ;
path paadt ;
 paadt:=zaadr -- zaads;
draw paadt   withpen qaabs   ;
 pair zaadu ;
 zaadu = ( xaaaj , xaadq ) ;
pair zaadv ;
 zaadv = ( xaaal , xaadq ) ;
path paadw ;
 paadw:=zaadu -- zaadv;
draw paadw   withpen qaabs   ;
 numeric xaadx ;
 xaadx = -0.0 * 1cm;
pair zaady ;
 zaady = ( xaadx , xaaaj ) ;
pair zaadz ;
 zaadz = ( xaadx , xaaal ) ;
path paaea ;
 paaea:=zaady -- zaadz;
draw paaea   withpen qaabs   ;
 pair zaaeb ;
 zaaeb = ( xaaaj , xaadx ) ;
pair zaaec ;
 zaaec = ( xaaal , xaadx ) ;
path paaed ;
 paaed:=zaaeb -- zaaec;
draw paaed   withpen qaabs   ;
 numeric xaaee ;
 xaaee = 0.1999969482421875 * 1cm;
pair zaaef ;
 zaaef = ( xaaee , xaaaj ) ;
pair zaaeg ;
 zaaeg = ( xaaee , xaaal ) ;
path paaeh ;
 paaeh:=zaaef -- zaaeg;
draw paaeh   withpen qaabs   ;
 pair zaaei ;
 zaaei = ( xaaaj , xaaee ) ;
pair zaaej ;
 zaaej = ( xaaal , xaaee ) ;
path paaek ;
 paaek:=zaaei -- zaaej;
draw paaek   withpen qaabs   ;
 numeric xaael ;
 xaael = 0.399993896484375 * 1cm;
pair zaaem ;
 zaaem = ( xaael , xaaaj ) ;
pair zaaen ;
 zaaen = ( xaael , xaaal ) ;
path paaeo ;
 paaeo:=zaaem -- zaaen;
draw paaeo   withpen qaabs   ;
 pair zaaep ;
 zaaep = ( xaaaj , xaael ) ;
pair zaaeq ;
 zaaeq = ( xaaal , xaael ) ;
path paaer ;
 paaer:=zaaep -- zaaeq;
draw paaer   withpen qaabs   ;
 numeric xaaes ;
 xaaes = 0.5999908447265625 * 1cm;
pair zaaet ;
 zaaet = ( xaaes , xaaaj ) ;
pair zaaeu ;
 zaaeu = ( xaaes , xaaal ) ;
path paaev ;
 paaev:=zaaet -- zaaeu;
draw paaev   withpen qaabs   ;
 pair zaaew ;
 zaaew = ( xaaaj , xaaes ) ;
pair zaaex ;
 zaaex = ( xaaal , xaaes ) ;
path paaey ;
 paaey:=zaaew -- zaaex;
draw paaey   withpen qaabs   ;
 numeric xaaez ;
 xaaez = 0.79998779296875 * 1cm;
pair zaafa ;
 zaafa = ( xaaez , xaaaj ) ;
pair zaafb ;
 zaafb = ( xaaez , xaaal ) ;
path paafc ;
 paafc:=zaafa -- zaafb;
draw paafc   withpen qaabs   ;
 pair zaafd ;
 zaafd = ( xaaaj , xaaez ) ;
pair zaafe ;
 zaafe = ( xaaal , xaaez ) ;
path paaff ;
 paaff:=zaafd -- zaafe;
draw paaff   withpen qaabs   ;
 numeric xaafg ;
 xaafg = 0.9999847412109375 * 1cm;
pair zaafh ;
 zaafh = ( xaafg , xaaaj ) ;
pair zaafi ;
 zaafi = ( xaafg , xaaal ) ;
path paafj ;
 paafj:=zaafh -- zaafi;
draw paafj   withpen qaabs   ;
 pair zaafk ;
 zaafk = ( xaaaj , xaafg ) ;
pair zaafl ;
 zaafl = ( xaaal , xaafg ) ;
path paafm ;
 paafm:=zaafk -- zaafl;
draw paafm   withpen qaabs   ;
 numeric xaafn ;
 xaafn = 1.1999969482421875 * 1cm;
pair zaafo ;
 zaafo = ( xaafn , xaaaj ) ;
pair zaafp ;
 zaafp = ( xaafn , xaaal ) ;
path paafq ;
 paafq:=zaafo -- zaafp;
draw paafq   withpen qaabs   ;
 pair zaafr ;
 zaafr = ( xaaaj , xaafn ) ;
pair zaafs ;
 zaafs = ( xaaal , xaafn ) ;
path paaft ;
 paaft:=zaafr -- zaafs;
draw paaft   withpen qaabs   ;
 numeric xaafu ;
 xaafu = 1.399993896484375 * 1cm;
pair zaafv ;
 zaafv = ( xaafu , xaaaj ) ;
pair zaafw ;
 zaafw = ( xaafu , xaaal ) ;
path paafx ;
 paafx:=zaafv -- zaafw;
draw paafx   withpen qaabs   ;
 pair zaafy ;
 zaafy = ( xaaaj , xaafu ) ;
pair zaafz ;
 zaafz = ( xaaal , xaafu ) ;
path paaga ;
 paaga:=zaafy -- zaafz;
draw paaga   withpen qaabs   ;
 numeric xaagb ;
 xaagb = 1.5999908447265625 * 1cm;
pair zaagc ;
 zaagc = ( xaagb , xaaaj ) ;
pair zaagd ;
 zaagd = ( xaagb , xaaal ) ;
path paage ;
 paage:=zaagc -- zaagd;
draw paage   withpen qaabs   ;
 pair zaagf ;
 zaagf = ( xaaaj , xaagb ) ;
pair zaagg ;
 zaagg = ( xaaal , xaagb ) ;
path paagh ;
 paagh:=zaagf -- zaagg;
draw paagh   withpen qaabs   ;
 numeric xaagi ;
 xaagi = 1.79998779296875 * 1cm;
pair zaagj ;
 zaagj = ( xaagi , xaaaj ) ;
pair zaagk ;
 zaagk = ( xaagi , xaaal ) ;
path paagl ;
 paagl:=zaagj -- zaagk;
draw paagl   withpen qaabs   ;
 pair zaagm ;
 zaagm = ( xaaaj , xaagi ) ;
pair zaagn ;
 zaagn = ( xaaal , xaagi ) ;
path paago ;
 paago:=zaagm -- zaagn;
draw paago   withpen qaabs   ;
 numeric xaagp ;
 xaagp = 1.9999847412109375 * 1cm;
pair zaagq ;
 zaagq = ( xaagp , xaaaj ) ;
pair zaagr ;
 zaagr = ( xaagp , xaaal ) ;
path paags ;
 paags:=zaagq -- zaagr;
draw paags   withpen qaabs   ;
 pair zaagt ;
 zaagt = ( xaaaj , xaagp ) ;
pair zaagu ;
 zaagu = ( xaaal , xaagp ) ;
path paagv ;
 paagv:=zaagt -- zaagu;
draw paagv   withpen qaabs   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;