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

beginfig(1)
pair zaaab ;
 zaaab = ( -0.5 , 0 ) ;
pair zaaac ;
 zaaac = ( 2.0 , 0 ) ;
path paaad ;
 paaad:=zaaab -- zaaac;
path paaae ;
 paaae:=paaad scaled 5mm ;
draw paaae     ;
 pair zaaaf ;
 zaaaf = ( 0 , -0.5 ) ;
pair zaaag ;
 zaaag = ( 0 , 4.0 ) ;
path paaah ;
 paaah:=zaaaf -- zaaag;
path paaai ;
 paaai:=paaah scaled 5mm ;
draw paaai     ;
 numeric xaaaj ;
 xaaaj = -0.5 ** 2.0 ;
numeric xaaak ;
 xaaak = xaaaj - 0.0999908447265625;
pair zaaal ;
 zaaal = ( -0.5 , xaaak ) ;
numeric xaaam ;
 xaaam = -0.4749908447265625 ** 2.0 ;
numeric xaaan ;
 xaaan = xaaam - 0.0999908447265625;
pair zaaao ;
 zaaao = ( -0.4749908447265625 , xaaan ) ;
numeric xaaap ;
 xaaap = -0.4499969482421875 ** 2.0 ;
numeric xaaaq ;
 xaaaq = xaaap - 0.0999908447265625;
pair zaaar ;
 zaaar = ( -0.4499969482421875 , xaaaq ) ;
numeric xaaas ;
 xaaas = -0.42498779296875 ** 2.0 ;
numeric xaaat ;
 xaaat = xaaas - 0.0999908447265625;
pair zaaau ;
 zaaau = ( -0.42498779296875 , xaaat ) ;
numeric xaaav ;
 xaaav = -0.399993896484375 ** 2.0 ;
numeric xaaaw ;
 xaaaw = xaaav - 0.0999908447265625;
pair zaaax ;
 zaaax = ( -0.399993896484375 , xaaaw ) ;
numeric xaaay ;
 xaaay = -0.3749847412109375 ** 2.0 ;
numeric xaaaz ;
 xaaaz = xaaay - 0.0999908447265625;
pair zaaba ;
 zaaba = ( -0.3749847412109375 , xaaaz ) ;
numeric xaabb ;
 xaabb = -0.3499908447265625 ** 2.0 ;
numeric xaabc ;
 xaabc = xaabb - 0.0999908447265625;
pair zaabd ;
 zaabd = ( -0.3499908447265625 , xaabc ) ;
numeric xaabe ;
 xaabe = -0.3249969482421875 ** 2.0 ;
numeric xaabf ;
 xaabf = xaabe - 0.0999908447265625;
pair zaabg ;
 zaabg = ( -0.3249969482421875 , xaabf ) ;
numeric xaabh ;
 xaabh = -0.29998779296875 ** 2.0 ;
numeric xaabi ;
 xaabi = xaabh - 0.0999908447265625;
pair zaabj ;
 zaabj = ( -0.29998779296875 , xaabi ) ;
numeric xaabk ;
 xaabk = -0.274993896484375 ** 2.0 ;
numeric xaabl ;
 xaabl = xaabk - 0.0999908447265625;
pair zaabm ;
 zaabm = ( -0.274993896484375 , xaabl ) ;
numeric xaabn ;
 xaabn = -0.2499847412109375 ** 2.0 ;
numeric xaabo ;
 xaabo = xaabn - 0.0999908447265625;
pair zaabp ;
 zaabp = ( -0.2499847412109375 , xaabo ) ;
numeric xaabq ;
 xaabq = -0.2249908447265625 ** 2.0 ;
numeric xaabr ;
 xaabr = xaabq - 0.0999908447265625;
pair zaabs ;
 zaabs = ( -0.2249908447265625 , xaabr ) ;
numeric xaabt ;
 xaabt = -0.1999969482421875 ** 2.0 ;
numeric xaabu ;
 xaabu = xaabt - 0.0999908447265625;
pair zaabv ;
 zaabv = ( -0.1999969482421875 , xaabu ) ;
numeric xaabw ;
 xaabw = -0.17498779296875 ** 2.0 ;
numeric xaabx ;
 xaabx = xaabw - 0.0999908447265625;
pair zaaby ;
 zaaby = ( -0.17498779296875 , xaabx ) ;
numeric xaabz ;
 xaabz = -0.149993896484375 ** 2.0 ;
numeric xaaca ;
 xaaca = xaabz - 0.0999908447265625;
pair zaacb ;
 zaacb = ( -0.149993896484375 , xaaca ) ;
numeric xaacc ;
 xaacc = -0.1249847412109375 ** 2.0 ;
numeric xaacd ;
 xaacd = xaacc - 0.0999908447265625;
pair zaace ;
 zaace = ( -0.1249847412109375 , xaacd ) ;
numeric xaacf ;
 xaacf = -0.0999908447265625 ** 2.0 ;
numeric xaacg ;
 xaacg = xaacf - 0.0999908447265625;
pair zaach ;
 zaach = ( -0.0999908447265625 , xaacg ) ;
numeric xaaci ;
 xaaci = -0.0749969482421875 ** 2.0 ;
numeric xaacj ;
 xaacj = xaaci - 0.0999908447265625;
pair zaack ;
 zaack = ( -0.0749969482421875 , xaacj ) ;
numeric xaacl ;
 xaacl = -0.04998779296875 ** 2.0 ;
numeric xaacm ;
 xaacm = xaacl - 0.0999908447265625;
pair zaacn ;
 zaacn = ( -0.04998779296875 , xaacm ) ;
numeric xaaco ;
 xaaco = -0.024993896484375 ** 2.0 ;
numeric xaacp ;
 xaacp = xaaco - 0.0999908447265625;
pair zaacq ;
 zaacq = ( -0.024993896484375 , xaacp ) ;
numeric xaacr ;
 xaacr = 0.0 ** 2.0 ;
numeric xaacs ;
 xaacs = xaacr - 0.0999908447265625;
pair zaact ;
 zaact = ( 0.0 , xaacs ) ;
numeric xaacu ;
 xaacu = 0.024993896484375 ** 2.0 ;
numeric xaacv ;
 xaacv = xaacu - 0.0999908447265625;
pair zaacw ;
 zaacw = ( 0.024993896484375 , xaacv ) ;
numeric xaacx ;
 xaacx = 0.04998779296875 ** 2.0 ;
numeric xaacy ;
 xaacy = xaacx - 0.0999908447265625;
pair zaacz ;
 zaacz = ( 0.04998779296875 , xaacy ) ;
numeric xaada ;
 xaada = 0.0749969482421875 ** 2.0 ;
numeric xaadb ;
 xaadb = xaada - 0.0999908447265625;
pair zaadc ;
 zaadc = ( 0.0749969482421875 , xaadb ) ;
numeric xaadd ;
 xaadd = 0.0999908447265625 ** 2.0 ;
numeric xaade ;
 xaade = xaadd - 0.0999908447265625;
pair zaadf ;
 zaadf = ( 0.0999908447265625 , xaade ) ;
numeric xaadg ;
 xaadg = 0.125 ** 2.0 ;
numeric xaadh ;
 xaadh = xaadg - 0.0999908447265625;
pair zaadi ;
 zaadi = ( 0.125 , xaadh ) ;
numeric xaadj ;
 xaadj = 0.149993896484375 ** 2.0 ;
numeric xaadk ;
 xaadk = xaadj - 0.0999908447265625;
pair zaadl ;
 zaadl = ( 0.149993896484375 , xaadk ) ;
numeric xaadm ;
 xaadm = 0.17498779296875 ** 2.0 ;
numeric xaadn ;
 xaadn = xaadm - 0.0999908447265625;
pair zaado ;
 zaado = ( 0.17498779296875 , xaadn ) ;
numeric xaadp ;
 xaadp = 0.1999969482421875 ** 2.0 ;
numeric xaadq ;
 xaadq = xaadp - 0.0999908447265625;
pair zaadr ;
 zaadr = ( 0.1999969482421875 , xaadq ) ;
numeric xaads ;
 xaads = 0.2249908447265625 ** 2.0 ;
numeric xaadt ;
 xaadt = xaads - 0.0999908447265625;
pair zaadu ;
 zaadu = ( 0.2249908447265625 , xaadt ) ;
numeric xaadv ;
 xaadv = 0.25 ** 2.0 ;
numeric xaadw ;
 xaadw = xaadv - 0.0999908447265625;
pair zaadx ;
 zaadx = ( 0.25 , xaadw ) ;
numeric xaady ;
 xaady = 0.274993896484375 ** 2.0 ;
numeric xaadz ;
 xaadz = xaady - 0.0999908447265625;
pair zaaea ;
 zaaea = ( 0.274993896484375 , xaadz ) ;
numeric xaaeb ;
 xaaeb = 0.29998779296875 ** 2.0 ;
numeric xaaec ;
 xaaec = xaaeb - 0.0999908447265625;
pair zaaed ;
 zaaed = ( 0.29998779296875 , xaaec ) ;
numeric xaaee ;
 xaaee = 0.3249969482421875 ** 2.0 ;
numeric xaaef ;
 xaaef = xaaee - 0.0999908447265625;
pair zaaeg ;
 zaaeg = ( 0.3249969482421875 , xaaef ) ;
numeric xaaeh ;
 xaaeh = 0.3499908447265625 ** 2.0 ;
numeric xaaei ;
 xaaei = xaaeh - 0.0999908447265625;
pair zaaej ;
 zaaej = ( 0.3499908447265625 , xaaei ) ;
numeric xaaek ;
 xaaek = 0.375 ** 2.0 ;
numeric xaael ;
 xaael = xaaek - 0.0999908447265625;
pair zaaem ;
 zaaem = ( 0.375 , xaael ) ;
numeric xaaen ;
 xaaen = 0.399993896484375 ** 2.0 ;
numeric xaaeo ;
 xaaeo = xaaen - 0.0999908447265625;
pair zaaep ;
 zaaep = ( 0.399993896484375 , xaaeo ) ;
numeric xaaeq ;
 xaaeq = 0.42498779296875 ** 2.0 ;
numeric xaaer ;
 xaaer = xaaeq - 0.0999908447265625;
pair zaaes ;
 zaaes = ( 0.42498779296875 , xaaer ) ;
numeric xaaet ;
 xaaet = 0.4499969482421875 ** 2.0 ;
numeric xaaeu ;
 xaaeu = xaaet - 0.0999908447265625;
pair zaaev ;
 zaaev = ( 0.4499969482421875 , xaaeu ) ;
numeric xaaew ;
 xaaew = 0.4749908447265625 ** 2.0 ;
numeric xaaex ;
 xaaex = xaaew - 0.0999908447265625;
pair zaaey ;
 zaaey = ( 0.4749908447265625 , xaaex ) ;
numeric xaaez ;
 xaaez = 0.5 ** 2.0 ;
numeric xaafa ;
 xaafa = xaaez - 0.0999908447265625;
pair zaafb ;
 zaafb = ( 0.5 , xaafa ) ;
numeric xaafc ;
 xaafc = 0.524993896484375 ** 2.0 ;
numeric xaafd ;
 xaafd = xaafc - 0.0999908447265625;
pair zaafe ;
 zaafe = ( 0.524993896484375 , xaafd ) ;
numeric xaaff ;
 xaaff = 0.54998779296875 ** 2.0 ;
numeric xaafg ;
 xaafg = xaaff - 0.0999908447265625;
pair zaafh ;
 zaafh = ( 0.54998779296875 , xaafg ) ;
numeric xaafi ;
 xaafi = 0.5749969482421875 ** 2.0 ;
numeric xaafj ;
 xaafj = xaafi - 0.0999908447265625;
pair zaafk ;
 zaafk = ( 0.5749969482421875 , xaafj ) ;
numeric xaafl ;
 xaafl = 0.5999908447265625 ** 2.0 ;
numeric xaafm ;
 xaafm = xaafl - 0.0999908447265625;
pair zaafn ;
 zaafn = ( 0.5999908447265625 , xaafm ) ;
numeric xaafo ;
 xaafo = 0.625 ** 2.0 ;
numeric xaafp ;
 xaafp = xaafo - 0.0999908447265625;
pair zaafq ;
 zaafq = ( 0.625 , xaafp ) ;
numeric xaafr ;
 xaafr = 0.649993896484375 ** 2.0 ;
numeric xaafs ;
 xaafs = xaafr - 0.0999908447265625;
pair zaaft ;
 zaaft = ( 0.649993896484375 , xaafs ) ;
numeric xaafu ;
 xaafu = 0.67498779296875 ** 2.0 ;
numeric xaafv ;
 xaafv = xaafu - 0.0999908447265625;
pair zaafw ;
 zaafw = ( 0.67498779296875 , xaafv ) ;
numeric xaafx ;
 xaafx = 0.6999969482421875 ** 2.0 ;
numeric xaafy ;
 xaafy = xaafx - 0.0999908447265625;
pair zaafz ;
 zaafz = ( 0.6999969482421875 , xaafy ) ;
numeric xaaga ;
 xaaga = 0.7249908447265625 ** 2.0 ;
numeric xaagb ;
 xaagb = xaaga - 0.0999908447265625;
pair zaagc ;
 zaagc = ( 0.7249908447265625 , xaagb ) ;
numeric xaagd ;
 xaagd = 0.75 ** 2.0 ;
numeric xaage ;
 xaage = xaagd - 0.0999908447265625;
pair zaagf ;
 zaagf = ( 0.75 , xaage ) ;
numeric xaagg ;
 xaagg = 0.774993896484375 ** 2.0 ;
numeric xaagh ;
 xaagh = xaagg - 0.0999908447265625;
pair zaagi ;
 zaagi = ( 0.774993896484375 , xaagh ) ;
numeric xaagj ;
 xaagj = 0.79998779296875 ** 2.0 ;
numeric xaagk ;
 xaagk = xaagj - 0.0999908447265625;
pair zaagl ;
 zaagl = ( 0.79998779296875 , xaagk ) ;
numeric xaagm ;
 xaagm = 0.8249969482421875 ** 2.0 ;
numeric xaagn ;
 xaagn = xaagm - 0.0999908447265625;
pair zaago ;
 zaago = ( 0.8249969482421875 , xaagn ) ;
numeric xaagp ;
 xaagp = 0.8499908447265625 ** 2.0 ;
numeric xaagq ;
 xaagq = xaagp - 0.0999908447265625;
pair zaagr ;
 zaagr = ( 0.8499908447265625 , xaagq ) ;
numeric xaags ;
 xaags = 0.875 ** 2.0 ;
numeric xaagt ;
 xaagt = xaags - 0.0999908447265625;
pair zaagu ;
 zaagu = ( 0.875 , xaagt ) ;
numeric xaagv ;
 xaagv = 0.899993896484375 ** 2.0 ;
numeric xaagw ;
 xaagw = xaagv - 0.0999908447265625;
pair zaagx ;
 zaagx = ( 0.899993896484375 , xaagw ) ;
numeric xaagy ;
 xaagy = 0.92498779296875 ** 2.0 ;
numeric xaagz ;
 xaagz = xaagy - 0.0999908447265625;
pair zaaha ;
 zaaha = ( 0.92498779296875 , xaagz ) ;
numeric xaahb ;
 xaahb = 0.9499969482421875 ** 2.0 ;
numeric xaahc ;
 xaahc = xaahb - 0.0999908447265625;
pair zaahd ;
 zaahd = ( 0.9499969482421875 , xaahc ) ;
numeric xaahe ;
 xaahe = 0.9749908447265625 ** 2.0 ;
numeric xaahf ;
 xaahf = xaahe - 0.0999908447265625;
pair zaahg ;
 zaahg = ( 0.9749908447265625 , xaahf ) ;
numeric xaahh ;
 xaahh = 1.0 ** 2.0 ;
numeric xaahi ;
 xaahi = xaahh - 0.0999908447265625;
pair zaahj ;
 zaahj = ( 1.0 , xaahi ) ;
numeric xaahk ;
 xaahk = 1.024993896484375 ** 2.0 ;
numeric xaahl ;
 xaahl = xaahk - 0.0999908447265625;
pair zaahm ;
 zaahm = ( 1.024993896484375 , xaahl ) ;
numeric xaahn ;
 xaahn = 1.04998779296875 ** 2.0 ;
numeric xaaho ;
 xaaho = xaahn - 0.0999908447265625;
pair zaahp ;
 zaahp = ( 1.04998779296875 , xaaho ) ;
numeric xaahq ;
 xaahq = 1.0749969482421875 ** 2.0 ;
numeric xaahr ;
 xaahr = xaahq - 0.0999908447265625;
pair zaahs ;
 zaahs = ( 1.0749969482421875 , xaahr ) ;
numeric xaaht ;
 xaaht = 1.0999908447265625 ** 2.0 ;
numeric xaahu ;
 xaahu = xaaht - 0.0999908447265625;
pair zaahv ;
 zaahv = ( 1.0999908447265625 , xaahu ) ;
numeric xaahw ;
 xaahw = 1.125 ** 2.0 ;
numeric xaahx ;
 xaahx = xaahw - 0.0999908447265625;
pair zaahy ;
 zaahy = ( 1.125 , xaahx ) ;
numeric xaahz ;
 xaahz = 1.149993896484375 ** 2.0 ;
numeric xaaia ;
 xaaia = xaahz - 0.0999908447265625;
pair zaaib ;
 zaaib = ( 1.149993896484375 , xaaia ) ;
numeric xaaic ;
 xaaic = 1.17498779296875 ** 2.0 ;
numeric xaaid ;
 xaaid = xaaic - 0.0999908447265625;
pair zaaie ;
 zaaie = ( 1.17498779296875 , xaaid ) ;
numeric xaaif ;
 xaaif = 1.1999969482421875 ** 2.0 ;
numeric xaaig ;
 xaaig = xaaif - 0.0999908447265625;
pair zaaih ;
 zaaih = ( 1.1999969482421875 , xaaig ) ;
numeric xaaii ;
 xaaii = 1.2249908447265625 ** 2.0 ;
numeric xaaij ;
 xaaij = xaaii - 0.0999908447265625;
pair zaaik ;
 zaaik = ( 1.2249908447265625 , xaaij ) ;
numeric xaail ;
 xaail = 1.2499847412109375 ** 2.0 ;
numeric xaaim ;
 xaaim = xaail - 0.0999908447265625;
pair zaain ;
 zaain = ( 1.2499847412109375 , xaaim ) ;
numeric xaaio ;
 xaaio = 1.274993896484375 ** 2.0 ;
numeric xaaip ;
 xaaip = xaaio - 0.0999908447265625;
pair zaaiq ;
 zaaiq = ( 1.274993896484375 , xaaip ) ;
numeric xaair ;
 xaair = 1.29998779296875 ** 2.0 ;
numeric xaais ;
 xaais = xaair - 0.0999908447265625;
pair zaait ;
 zaait = ( 1.29998779296875 , xaais ) ;
numeric xaaiu ;
 xaaiu = 1.3249969482421875 ** 2.0 ;
numeric xaaiv ;
 xaaiv = xaaiu - 0.0999908447265625;
pair zaaiw ;
 zaaiw = ( 1.3249969482421875 , xaaiv ) ;
numeric xaaix ;
 xaaix = 1.3499908447265625 ** 2.0 ;
numeric xaaiy ;
 xaaiy = xaaix - 0.0999908447265625;
pair zaaiz ;
 zaaiz = ( 1.3499908447265625 , xaaiy ) ;
numeric xaaja ;
 xaaja = 1.3749847412109375 ** 2.0 ;
numeric xaajb ;
 xaajb = xaaja - 0.0999908447265625;
pair zaajc ;
 zaajc = ( 1.3749847412109375 , xaajb ) ;
numeric xaajd ;
 xaajd = 1.399993896484375 ** 2.0 ;
numeric xaaje ;
 xaaje = xaajd - 0.0999908447265625;
pair zaajf ;
 zaajf = ( 1.399993896484375 , xaaje ) ;
numeric xaajg ;
 xaajg = 1.42498779296875 ** 2.0 ;
numeric xaajh ;
 xaajh = xaajg - 0.0999908447265625;
pair zaaji ;
 zaaji = ( 1.42498779296875 , xaajh ) ;
numeric xaajj ;
 xaajj = 1.4499969482421875 ** 2.0 ;
numeric xaajk ;
 xaajk = xaajj - 0.0999908447265625;
pair zaajl ;
 zaajl = ( 1.4499969482421875 , xaajk ) ;
numeric xaajm ;
 xaajm = 1.4749908447265625 ** 2.0 ;
numeric xaajn ;
 xaajn = xaajm - 0.0999908447265625;
pair zaajo ;
 zaajo = ( 1.4749908447265625 , xaajn ) ;
numeric xaajp ;
 xaajp = 1.4999847412109375 ** 2.0 ;
numeric xaajq ;
 xaajq = xaajp - 0.0999908447265625;
pair zaajr ;
 zaajr = ( 1.4999847412109375 , xaajq ) ;
numeric xaajs ;
 xaajs = 1.524993896484375 ** 2.0 ;
numeric xaajt ;
 xaajt = xaajs - 0.0999908447265625;
pair zaaju ;
 zaaju = ( 1.524993896484375 , xaajt ) ;
numeric xaajv ;
 xaajv = 1.54998779296875 ** 2.0 ;
numeric xaajw ;
 xaajw = xaajv - 0.0999908447265625;
pair zaajx ;
 zaajx = ( 1.54998779296875 , xaajw ) ;
numeric xaajy ;
 xaajy = 1.5749969482421875 ** 2.0 ;
numeric xaajz ;
 xaajz = xaajy - 0.0999908447265625;
pair zaaka ;
 zaaka = ( 1.5749969482421875 , xaajz ) ;
numeric xaakb ;
 xaakb = 1.5999908447265625 ** 2.0 ;
numeric xaakc ;
 xaakc = xaakb - 0.0999908447265625;
pair zaakd ;
 zaakd = ( 1.5999908447265625 , xaakc ) ;
numeric xaake ;
 xaake = 1.6249847412109375 ** 2.0 ;
numeric xaakf ;
 xaakf = xaake - 0.0999908447265625;
pair zaakg ;
 zaakg = ( 1.6249847412109375 , xaakf ) ;
numeric xaakh ;
 xaakh = 1.649993896484375 ** 2.0 ;
numeric xaaki ;
 xaaki = xaakh - 0.0999908447265625;
pair zaakj ;
 zaakj = ( 1.649993896484375 , xaaki ) ;
numeric xaakk ;
 xaakk = 1.67498779296875 ** 2.0 ;
numeric xaakl ;
 xaakl = xaakk - 0.0999908447265625;
pair zaakm ;
 zaakm = ( 1.67498779296875 , xaakl ) ;
numeric xaakn ;
 xaakn = 1.6999969482421875 ** 2.0 ;
numeric xaako ;
 xaako = xaakn - 0.0999908447265625;
pair zaakp ;
 zaakp = ( 1.6999969482421875 , xaako ) ;
numeric xaakq ;
 xaakq = 1.7249908447265625 ** 2.0 ;
numeric xaakr ;
 xaakr = xaakq - 0.0999908447265625;
pair zaaks ;
 zaaks = ( 1.7249908447265625 , xaakr ) ;
numeric xaakt ;
 xaakt = 1.7499847412109375 ** 2.0 ;
numeric xaaku ;
 xaaku = xaakt - 0.0999908447265625;
pair zaakv ;
 zaakv = ( 1.7499847412109375 , xaaku ) ;
numeric xaakw ;
 xaakw = 1.774993896484375 ** 2.0 ;
numeric xaakx ;
 xaakx = xaakw - 0.0999908447265625;
pair zaaky ;
 zaaky = ( 1.774993896484375 , xaakx ) ;
numeric xaakz ;
 xaakz = 1.79998779296875 ** 2.0 ;
numeric xaala ;
 xaala = xaakz - 0.0999908447265625;
pair zaalb ;
 zaalb = ( 1.79998779296875 , xaala ) ;
numeric xaalc ;
 xaalc = 1.8249969482421875 ** 2.0 ;
numeric xaald ;
 xaald = xaalc - 0.0999908447265625;
pair zaale ;
 zaale = ( 1.8249969482421875 , xaald ) ;
numeric xaalf ;
 xaalf = 1.8499908447265625 ** 2.0 ;
numeric xaalg ;
 xaalg = xaalf - 0.0999908447265625;
pair zaalh ;
 zaalh = ( 1.8499908447265625 , xaalg ) ;
numeric xaali ;
 xaali = 1.8749847412109375 ** 2.0 ;
numeric xaalj ;
 xaalj = xaali - 0.0999908447265625;
pair zaalk ;
 zaalk = ( 1.8749847412109375 , xaalj ) ;
numeric xaall ;
 xaall = 1.899993896484375 ** 2.0 ;
numeric xaalm ;
 xaalm = xaall - 0.0999908447265625;
pair zaaln ;
 zaaln = ( 1.899993896484375 , xaalm ) ;
numeric xaalo ;
 xaalo = 1.92498779296875 ** 2.0 ;
numeric xaalp ;
 xaalp = xaalo - 0.0999908447265625;
pair zaalq ;
 zaalq = ( 1.92498779296875 , xaalp ) ;
numeric xaalr ;
 xaalr = 1.9499969482421875 ** 2.0 ;
numeric xaals ;
 xaals = xaalr - 0.0999908447265625;
pair zaalt ;
 zaalt = ( 1.9499969482421875 , xaals ) ;
numeric xaalu ;
 xaalu = 1.9749908447265625 ** 2.0 ;
numeric xaalv ;
 xaalv = xaalu - 0.0999908447265625;
pair zaalw ;
 zaalw = ( 1.9749908447265625 , xaalv ) ;
numeric xaalx ;
 xaalx = 1.9999847412109375 ** 2.0 ;
numeric xaaly ;
 xaaly = xaalx - 0.0999908447265625;
pair zaalz ;
 zaalz = ( 1.9999847412109375 , xaaly ) ;
path paama ;
 paama:=zaaal -- zaaao -- zaaar -- zaaau -- zaaax -- zaaba -- zaabd -- zaabg -- zaabj -- zaabm -- zaabp -- zaabs -- zaabv -- zaaby -- zaacb -- zaace -- zaach -- zaack -- zaacn -- zaacq -- zaact -- zaacw -- zaacz -- zaadc -- zaadf -- zaadi -- zaadl -- zaado -- zaadr -- zaadu -- zaadx -- zaaea -- zaaed -- zaaeg -- zaaej -- zaaem -- zaaep -- zaaes -- zaaev -- zaaey -- zaafb -- zaafe -- zaafh -- zaafk -- zaafn -- zaafq -- zaaft -- zaafw -- zaafz -- zaagc -- zaagf -- zaagi -- zaagl -- zaago -- zaagr -- zaagu -- zaagx -- zaaha -- zaahd -- zaahg -- zaahj -- zaahm -- zaahp -- zaahs -- zaahv -- zaahy -- zaaib -- zaaie -- zaaih -- zaaik -- zaain -- zaaiq -- zaait -- zaaiw -- zaaiz -- zaajc -- zaajf -- zaaji -- zaajl -- zaajo -- zaajr -- zaaju -- zaajx -- zaaka -- zaakd -- zaakg -- zaakj -- zaakm -- zaakp -- zaaks -- zaakv -- zaaky -- zaalb -- zaale -- zaalh -- zaalk -- zaaln -- zaalq -- zaalt -- zaalw -- zaalz;
path paamb ;
 paamb:=paama scaled 5mm ;
draw paamb     ;
 numeric xaamc ;
 xaamc = 2.0 ** 2.0 ;
numeric xaamd ;
 xaamd = xaamc - 0.0999908447265625;
numeric xaame ;
 xaame = 2.0 + 0.0099945068359375;
numeric xaamf ;
 xaamf = xaame ** 2.0 ;
numeric xaamg ;
 xaamg = xaamf - 0.0999908447265625;
numeric xaamh ;
 xaamh = xaamg - xaamd;
numeric xaami ;
 xaami = xaamh / 0.0099945068359375;
numeric xaamj ;
 xaamj = xaamd / xaami;
numeric xaamk ;
 xaamk = 2.0 - xaamj;
pair zaaml ;
 zaaml = ( 2.0 , xaamd ) ;
pair zaamm ;
 zaamm = ( xaamk , 0 ) ;
numeric xaamn ;
 xaamn = xaamk ** 2.0 ;
numeric xaamo ;
 xaamo = xaamn - 0.0999908447265625;
pair zaamp ;
 zaamp = ( xaamk , xaamo ) ;
path paamq ;
 paamq:=zaaml -- zaamm -- zaamp;
path paamr ;
 paamr:=paamq scaled 5mm ;
draw paamr     ;
 path paams ;
 paams:=zaamp -- zaamm -- zaamp;
path paamt ;
 paamt:=paams scaled 5mm ;
draw paamt     ;
 numeric xaamu ;
 xaamu = xaamk + 0.0099945068359375;
numeric xaamv ;
 xaamv = xaamu ** 2.0 ;
numeric xaamw ;
 xaamw = xaamv - 0.0999908447265625;
numeric xaamx ;
 xaamx = xaamw - xaamo;
numeric xaamy ;
 xaamy = xaamx / 0.0099945068359375;
numeric xaamz ;
 xaamz = xaamo / xaamy;
numeric xaana ;
 xaana = xaamk - xaamz;
pair zaanb ;
 zaanb = ( xaana , 0 ) ;
numeric xaanc ;
 xaanc = xaana ** 2.0 ;
numeric xaand ;
 xaand = xaanc - 0.0999908447265625;
pair zaane ;
 zaane = ( xaana , xaand ) ;
path paanf ;
 paanf:=zaamp -- zaanb -- zaane;
path paang ;
 paang:=paanf scaled 5mm ;
draw paang     ;
 path paanh ;
 paanh:=zaane -- zaanb -- zaane;
path paani ;
 paani:=paanh scaled 5mm ;
draw paani     ;
 numeric xaanj ;
 xaanj = xaana + 0.0099945068359375;
numeric xaank ;
 xaank = xaanj ** 2.0 ;
numeric xaanl ;
 xaanl = xaank - 0.0999908447265625;
numeric xaanm ;
 xaanm = xaanl - xaand;
numeric xaann ;
 xaann = xaanm / 0.0099945068359375;
numeric xaano ;
 xaano = xaand / xaann;
numeric xaanp ;
 xaanp = xaana - xaano;
pair zaanq ;
 zaanq = ( xaanp , 0 ) ;
numeric xaanr ;
 xaanr = xaanp ** 2.0 ;
numeric xaans ;
 xaans = xaanr - 0.0999908447265625;
pair zaant ;
 zaant = ( xaanp , xaans ) ;
path paanu ;
 paanu:=zaane -- zaanq -- zaant;
path paanv ;
 paanv:=paanu scaled 5mm ;
draw paanv     ;
 path paanw ;
 paanw:=zaant -- zaanq -- zaant;
path paanx ;
 paanx:=paanw scaled 5mm ;
draw paanx     ;
 numeric xaany ;
 xaany = xaanp + 0.0099945068359375;
numeric xaanz ;
 xaanz = xaany ** 2.0 ;
numeric xaaoa ;
 xaaoa = xaanz - 0.0999908447265625;
numeric xaaob ;
 xaaob = xaaoa - xaans;
numeric xaaoc ;
 xaaoc = xaaob / 0.0099945068359375;
numeric xaaod ;
 xaaod = xaans / xaaoc;
numeric xaaoe ;
 xaaoe = xaanp - xaaod;
pair zaaof ;
 zaaof = ( xaaoe , 0 ) ;
numeric xaaog ;
 xaaog = xaaoe ** 2.0 ;
numeric xaaoh ;
 xaaoh = xaaog - 0.0999908447265625;
pair zaaoi ;
 zaaoi = ( xaaoe , xaaoh ) ;
path paaoj ;
 paaoj:=zaant -- zaaof -- zaaoi;
path paaok ;
 paaok:=paaoj scaled 5mm ;
draw paaok     ;
 path paaol ;
 paaol:=zaaoi -- zaaof -- zaaoi;
path paaom ;
 paaom:=paaol scaled 5mm ;
draw paaom     ;
 numeric xaaon ;
 xaaon = xaaoe + 0.0099945068359375;
numeric xaaoo ;
 xaaoo = xaaon ** 2.0 ;
numeric xaaop ;
 xaaop = xaaoo - 0.0999908447265625;
numeric xaaoq ;
 xaaoq = xaaop - xaaoh;
numeric xaaor ;
 xaaor = xaaoq / 0.0099945068359375;
numeric xaaos ;
 xaaos = xaaoh / xaaor;
numeric xaaot ;
 xaaot = xaaoe - xaaos;
pair zaaou ;
 zaaou = ( xaaot , 0 ) ;
numeric xaaov ;
 xaaov = xaaot ** 2.0 ;
numeric xaaow ;
 xaaow = xaaov - 0.0999908447265625;
pair zaaox ;
 zaaox = ( xaaot , xaaow ) ;
path paaoy ;
 paaoy:=zaaoi -- zaaou -- zaaox;
path paaoz ;
 paaoz:=paaoy scaled 5mm ;
draw paaoz     ;
 path paapa ;
 paapa:=zaaox -- zaaou -- zaaox;
path paapb ;
 paapb:=paapa scaled 5mm ;
draw paapb     ;
 numeric xaapc ;
 xaapc = xaaot + 0.0099945068359375;
numeric xaapd ;
 xaapd = xaapc ** 2.0 ;
numeric xaape ;
 xaape = xaapd - 0.0999908447265625;
numeric xaapf ;
 xaapf = xaape - xaaow;
numeric xaapg ;
 xaapg = xaapf / 0.0099945068359375;
numeric xaaph ;
 xaaph = xaaow / xaapg;
numeric xaapi ;
 xaapi = xaaot - xaaph;
currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;