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 ;
 numeric xaami ;
 numeric xaamj ;
 xaamj = xaamg - xaamd;
numeric xaamk ;
 xaamk = xaamj / 0.0099945068359375;
numeric xaaml ;
 xaaml = xaamd / xaamk;
numeric xaamm ;
 xaamm = 2.0 - xaaml;
numeric xaamn ;
 numeric xaamo ;
 pair zaamp ;
 zaamp = ( 2.0 , xaamd ) ;
pair zaamq ;
 zaamq = ( xaamm , 0 ) ;
numeric xaamr ;
 xaamr = xaamm ** 2.0 ;
numeric xaams ;
 xaams = xaamr - 0.0999908447265625;
pair zaamt ;
 zaamt = ( xaamm , xaams ) ;
path paamu ;
 paamu:=zaamp -- zaamq -- zaamt;
path paamv ;
 paamv:=paamu scaled 5mm ;
draw paamv     ;
 numeric xaamw ;
 numeric xaamx ;
 numeric xaamy ;
 numeric xaamz ;
 numeric xaana ;
 numeric xaanb ;
 numeric xaanc ;
 numeric xaand ;
 numeric xaane ;
 numeric xaanf ;
 numeric xaang ;
 numeric xaanh ;
 numeric xaani ;
 pair zaanj ;
 pair zaank ;
 numeric xaanl ;
 numeric xaanm ;
 pair zaann ;
 path paano ;
 paano:=zaamt -- zaamq -- zaamt;
path paanp ;
 paanp:=paano scaled 5mm ;
draw paanp     ;
 numeric xaanq ;
 numeric xaanr ;
 numeric xaans ;
 xaans = xaamm + 0.0099945068359375;
numeric xaant ;
 xaant = xaans ** 2.0 ;
numeric xaanu ;
 xaanu = xaant - 0.0999908447265625;
numeric xaanv ;
 numeric xaanw ;
 numeric xaanx ;
 xaanx = xaanu - xaams;
numeric xaany ;
 xaany = xaanx / 0.0099945068359375;
numeric xaanz ;
 xaanz = xaams / xaany;
numeric xaaoa ;
 xaaoa = xaamm - xaanz;
numeric xaaob ;
 numeric xaaoc ;
 pair zaaod ;
 pair zaaoe ;
 zaaoe = ( xaaoa , 0 ) ;
numeric xaaof ;
 xaaof = xaaoa ** 2.0 ;
numeric xaaog ;
 xaaog = xaaof - 0.0999908447265625;
pair zaaoh ;
 zaaoh = ( xaaoa , xaaog ) ;
path paaoi ;
 paaoi:=zaamt -- zaaoe -- zaaoh;
path paaoj ;
 paaoj:=paaoi scaled 5mm ;
draw paaoj     ;
 numeric xaaok ;
 numeric xaaol ;
 numeric xaaom ;
 numeric xaaon ;
 numeric xaaoo ;
 numeric xaaop ;
 numeric xaaoq ;
 numeric xaaor ;
 numeric xaaos ;
 numeric xaaot ;
 numeric xaaou ;
 numeric xaaov ;
 numeric xaaow ;
 pair zaaox ;
 pair zaaoy ;
 numeric xaaoz ;
 numeric xaapa ;
 pair zaapb ;
 path paapc ;
 paapc:=zaaoh -- zaaoe -- zaaoh;
path paapd ;
 paapd:=paapc scaled 5mm ;
draw paapd     ;
 numeric xaape ;
 numeric xaapf ;
 numeric xaapg ;
 xaapg = xaaoa + 0.0099945068359375;
numeric xaaph ;
 xaaph = xaapg ** 2.0 ;
numeric xaapi ;
 xaapi = xaaph - 0.0999908447265625;
numeric xaapj ;
 numeric xaapk ;
 numeric xaapl ;
 xaapl = xaapi - xaaog;
numeric xaapm ;
 xaapm = xaapl / 0.0099945068359375;
numeric xaapn ;
 xaapn = xaaog / xaapm;
numeric xaapo ;
 xaapo = xaaoa - xaapn;
numeric xaapp ;
 numeric xaapq ;
 pair zaapr ;
 pair zaaps ;
 zaaps = ( xaapo , 0 ) ;
numeric xaapt ;
 xaapt = xaapo ** 2.0 ;
numeric xaapu ;
 xaapu = xaapt - 0.0999908447265625;
pair zaapv ;
 zaapv = ( xaapo , xaapu ) ;
path paapw ;
 paapw:=zaaoh -- zaaps -- zaapv;
path paapx ;
 paapx:=paapw scaled 5mm ;
draw paapx     ;
 numeric xaapy ;
 numeric xaapz ;
 numeric xaaqa ;
 numeric xaaqb ;
 numeric xaaqc ;
 numeric xaaqd ;
 numeric xaaqe ;
 numeric xaaqf ;
 numeric xaaqg ;
 numeric xaaqh ;
 numeric xaaqi ;
 numeric xaaqj ;
 numeric xaaqk ;
 pair zaaql ;
 pair zaaqm ;
 numeric xaaqn ;
 numeric xaaqo ;
 pair zaaqp ;
 path paaqq ;
 paaqq:=zaapv -- zaaps -- zaapv;
path paaqr ;
 paaqr:=paaqq scaled 5mm ;
draw paaqr     ;
 numeric xaaqs ;
 numeric xaaqt ;
 numeric xaaqu ;
 xaaqu = xaapo + 0.0099945068359375;
numeric xaaqv ;
 xaaqv = xaaqu ** 2.0 ;
numeric xaaqw ;
 xaaqw = xaaqv - 0.0999908447265625;
numeric xaaqx ;
 numeric xaaqy ;
 numeric xaaqz ;
 xaaqz = xaaqw - xaapu;
numeric xaara ;
 xaara = xaaqz / 0.0099945068359375;
numeric xaarb ;
 xaarb = xaapu / xaara;
numeric xaarc ;
 xaarc = xaapo - xaarb;
numeric xaard ;
 numeric xaare ;
 pair zaarf ;
 pair zaarg ;
 zaarg = ( xaarc , 0 ) ;
numeric xaarh ;
 xaarh = xaarc ** 2.0 ;
numeric xaari ;
 xaari = xaarh - 0.0999908447265625;
pair zaarj ;
 zaarj = ( xaarc , xaari ) ;
path paark ;
 paark:=zaapv -- zaarg -- zaarj;
path paarl ;
 paarl:=paark scaled 5mm ;
draw paarl     ;
 numeric xaarm ;
 numeric xaarn ;
 numeric xaaro ;
 numeric xaarp ;
 numeric xaarq ;
 numeric xaarr ;
 numeric xaars ;
 numeric xaart ;
 numeric xaaru ;
 numeric xaarv ;
 numeric xaarw ;
 numeric xaarx ;
 numeric xaary ;
 pair zaarz ;
 pair zaasa ;
 numeric xaasb ;
 numeric xaasc ;
 pair zaasd ;
 path paase ;
 paase:=zaarj -- zaarg -- zaarj;
path paasf ;
 paasf:=paase scaled 5mm ;
draw paasf     ;
 numeric xaasg ;
 numeric xaash ;
 numeric xaasi ;
 xaasi = xaarc + 0.0099945068359375;
numeric xaasj ;
 xaasj = xaasi ** 2.0 ;
numeric xaask ;
 xaask = xaasj - 0.0999908447265625;
numeric xaasl ;
 numeric xaasm ;
 numeric xaasn ;
 xaasn = xaask - xaari;
numeric xaaso ;
 xaaso = xaasn / 0.0099945068359375;
numeric xaasp ;
 xaasp = xaari / xaaso;
numeric xaasq ;
 xaasq = xaarc - xaasp;
numeric xaasr ;
 numeric xaass ;
 pair zaast ;
 pair zaasu ;
 zaasu = ( xaasq , 0 ) ;
numeric xaasv ;
 xaasv = xaasq ** 2.0 ;
numeric xaasw ;
 xaasw = xaasv - 0.0999908447265625;
pair zaasx ;
 zaasx = ( xaasq , xaasw ) ;
path paasy ;
 paasy:=zaarj -- zaasu -- zaasx;
path paasz ;
 paasz:=paasy scaled 5mm ;
draw paasz     ;
 numeric xaata ;
 numeric xaatb ;
 numeric xaatc ;
 numeric xaatd ;
 numeric xaate ;
 numeric xaatf ;
 numeric xaatg ;
 numeric xaath ;
 numeric xaati ;
 numeric xaatj ;
 numeric xaatk ;
 numeric xaatl ;
 numeric xaatm ;
 pair zaatn ;
 pair zaato ;
 numeric xaatp ;
 numeric xaatq ;
 pair zaatr ;
 path paats ;
 paats:=zaasx -- zaasu -- zaasx;
path paatt ;
 paatt:=paats scaled 5mm ;
draw paatt     ;
 numeric xaatu ;
 numeric xaatv ;
 numeric xaatw ;
 xaatw = xaasq + 0.0099945068359375;
numeric xaatx ;
 xaatx = xaatw ** 2.0 ;
numeric xaaty ;
 xaaty = xaatx - 0.0999908447265625;
numeric xaatz ;
 numeric xaaua ;
 numeric xaaub ;
 xaaub = xaaty - xaasw;
numeric xaauc ;
 xaauc = xaaub / 0.0099945068359375;
numeric xaaud ;
 xaaud = xaasw / xaauc;
numeric xaaue ;
 xaaue = xaasq - xaaud;
currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;