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     ;
 numeric xaaag ;
 pair zaaah ;
 zaaah = ( 0 , xaaab ) ;
numeric xaaai ;
 pair zaaaj ;
 zaaaj = ( 0 , xaaad ) ;
path paaak ;
 paaak:=zaaah -- zaaaj;
draw paaak     ;
 numeric xaaal ;
 numeric xaaam ;
 xaaam = 1cm * 2.0;
pair zaaan ;
 zaaan = ( xaaab , xaaam ) ;
numeric xaaao ;
 numeric xaaap ;
 xaaap = 1cm * -2.0;
pair zaaaq ;
 zaaaq = ( xaaab , xaaap ) ;
path paaar ;
 paaar:=zaaan -- zaaaq;
draw paaar     ;
 numeric xaaas ;
 numeric xaaat ;
 pair zaaau ;
 zaaau = ( xaaam , xaaab ) ;
numeric xaaav ;
 numeric xaaaw ;
 pair zaaax ;
 zaaax = ( xaaap , xaaab ) ;
path paaay ;
 paaay:=zaaau -- zaaax;
draw paaay     ;
 numeric xaaaz ;
 xaaaz = -1.0 * 1cm;
numeric xaaba ;
 pair zaabb ;
 zaabb = ( xaaaz , xaaam ) ;
numeric xaabc ;
 numeric xaabd ;
 pair zaabe ;
 zaabe = ( xaaaz , xaaap ) ;
path paabf ;
 paabf:=zaabb -- zaabe;
draw paabf     ;
 numeric xaabg ;
 numeric xaabh ;
 pair zaabi ;
 zaabi = ( xaaam , xaaaz ) ;
numeric xaabj ;
 numeric xaabk ;
 pair zaabl ;
 zaabl = ( xaaap , xaaaz ) ;
path paabm ;
 paabm:=zaabi -- zaabl;
draw paabm     ;
 numeric xaabn ;
 xaabn = 0 * 1cm;
numeric xaabo ;
 pair zaabp ;
 zaabp = ( xaabn , xaaam ) ;
numeric xaabq ;
 numeric xaabr ;
 pair zaabs ;
 zaabs = ( xaabn , xaaap ) ;
path paabt ;
 paabt:=zaabp -- zaabs;
draw paabt     ;
 numeric xaabu ;
 numeric xaabv ;
 pair zaabw ;
 zaabw = ( xaaam , xaabn ) ;
numeric xaabx ;
 numeric xaaby ;
 pair zaabz ;
 zaabz = ( xaaap , xaabn ) ;
path paaca ;
 paaca:=zaabw -- zaabz;
draw paaca     ;
 numeric xaacb ;
 xaacb = 1.0 * 1cm;
numeric xaacc ;
 pair zaacd ;
 zaacd = ( xaacb , xaaam ) ;
numeric xaace ;
 numeric xaacf ;
 pair zaacg ;
 zaacg = ( xaacb , xaaap ) ;
path paach ;
 paach:=zaacd -- zaacg;
draw paach     ;
 numeric xaaci ;
 numeric xaacj ;
 pair zaack ;
 zaack = ( xaaam , xaacb ) ;
numeric xaacl ;
 numeric xaacm ;
 pair zaacn ;
 zaacn = ( xaaap , xaacb ) ;
path paaco ;
 paaco:=zaack -- zaacn;
draw paaco     ;
 numeric xaacp ;
 numeric xaacq ;
 pair zaacr ;
 zaacr = ( xaaad , xaaam ) ;
numeric xaacs ;
 numeric xaact ;
 pair zaacu ;
 zaacu = ( xaaad , xaaap ) ;
path paacv ;
 paacv:=zaacr -- zaacu;
draw paacv     ;
 numeric xaacw ;
 numeric xaacx ;
 pair zaacy ;
 zaacy = ( xaaam , xaaad ) ;
numeric xaacz ;
 numeric xaada ;
 pair zaadb ;
 zaadb = ( xaaap , xaaad ) ;
path paadc ;
 paadc:=zaacy -- zaadb;
draw paadc     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;