;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Scheme in a Nutshell
;;;
;;; Description:
;;;   To fulfill your dreams,
;;;   You must take a leap of faith,
;;;   And realize that,

; CODE: 
; Text is stored as lists of vertical bars represented by numbers of the form:
; x-coord * 10000 + 100 * y_1 + y_2
(define eword
(list 50305 59597 60305 69597 70305 79597 80305 89597 90305 99597 100305 109497 110305 119497 120305 129497 130306 139397 140306 149397 150307 159297 160308 169197 170310 171112 171314 178687 178889 179097 180397 190397 200397 210397 220397 230397 240397 250397 260397 270397 280397 290397 300397 310308 314550 318788 318997 320308 324550 329097 330308 334550 339197 340308 344550 349197 350308 354550 359197 360308 364550 369297 370308 374550 379297 380308 384550 389297 390308 394550 399297 400308 404550 409297 410308 414550 419297 420308 424550 429297 430308 434550 439297 440308 444550 449297 450308 454550 459297 460308 464550 469297 470308 474550 479297 480308 484550 489297 490308 494550 499297 500308 504550 509297 510308 514550 519297 520308 524550 529297 530308 534550 539297 540308 544550 549297 550308 554550 559297 560308 564550 569297 570308 574450 579297 580308 584450 589297 590308 594450 599297 600308 604451 609297 610308 614451 619297 620308 624351 629197 630308 634352 639197 640308 644253 649197 650308 654054 659197 660308 663839 664055 665657 669197 670309 673435 673659 676061 679197 680309 683263 689097 690309 693263 699097 700310 708997 710311 718997 720312 728897 730313 738797 740315 748697 750317 751819 758597 760320 762122 768497 770324 778397 780324 788296 790809 791011 791213 791415 791617 791824 798094 807991 817788 827585 828687 837382 838384 847379 848081 857376 857778 867374 1170305 1180305 1190305 1200305 1210305 1220306 1230306 1240307 1250307 1260308 1270309 1280310 1290312 1300314 1310316 1311718 1320319 1330321 1340323 1342425 1350326 1360328 1370330 1373132 1380333 1390335 1400337 1403839 1410340 1420342 1430344 1434546 1440347 1450308 1451415 1451649 1460307 1461851 1465253 1470306 1472021 1472254 1480306 1482356 1490306 1492558 1495960 1500305 1502728 1502961 1510305 1513063 1520305 1523265 1526667 1530305 1533435 1533668 1540305 1543770 1550304 1553973 1564142 1564375 1574477 1577879 1584680 1594849 1595082 1605184 1608586 1615387 1625556 1625789 1635891 1639293 1646094 1656396 1666598 1676768 1676999 1687099 1697298 1707475 1707696 1717693 1719495 1727491 1737172 1737388 1738990 1746986 1756667 1756883 1766481 1776162 1776378 1785975 1787677 1795657 1795873 1805470 1807172 1815152 1815368 1824965 1826667 1834647 1834863 1844460 1846162 1854142 1854358 1860304 1863955 1865657 1870305 1873653 1880305 1883334 1883550 1885152 1890305 1893148 1900306 1902829 1903045 1904647 1910306 1912643 1920306 1922324 1922540 1930307 1932137 1933839 1940308 1941819 1942035 1950309 1951516 1951732 1953334 1960330 1970327 1972829 1980325 1990322 1992324 2000320 2010317 2011819 2020315 2030313 2040312 2050310 2060309 2070308 2080307 2090307 2100306 2110306 2120305 2130305 2140305 2449597 2459497 2469497 2479497 2489497 2499397 2509397 2519297 2529197 2539097 2548897 2558697 2568497 2578297 2588097 2597897 2607576 2607797 2617397 2627187 2628889 2629097 2636869 2637084 2639197 2646681 2649297 2656479 2659397 2666276 2667778 2669397 2675960 2676174 2679497 2685772 2689497 2695570 2699497 2705367 2706869 2709497 2715051 2715266 2719597 2724866 2729597 2734660 2736166 2739596 2744344 2744558 2746166 2754156 2756166 2763954 2766166 2773751 2775253 2776166 2783435 2783649 2785051 2786166 2793247 2796166 2803045 2806166 2812843 2816166 2822526 2822740 2824142 2826166 2832338 2836166 2842136 2846166 2851819 2852034 2856166 2861631 2863233 2866166 2871429 2876166 2881227 2886166 2890910 2891125 2896166 2900723 2906166 2910525 2916166 2920327 2926166 2930129 2933031 2936166 2940132 2946166 2950134 2953536 2956166 2960203 2960437 2966166 2970539 2976166 2980708 2980941 2984243 2986166 2991044 2996166 3001246 3006166 3011415 3011648 3014950 3016166 3021751 3026166 3031920 3032153 3035455 3036166 3042256 3046166 3052458 3056166 3062760 3066166 3072966 3079597 3083132 3083366 3089597 3093468 3099497 3103637 3103870 3109497 3113972 3117374 3119497 3124175 3129497 3134344 3134577 3137879 3139397 3144680 3149397 3154849 3155083 3158485 3159197 3165187 3168889 3169097 3175397 3185556 3185797 3195897 3206061 3206297 3216397 3226597 3236897 3247097 3257273 3257497 3267597 3277778 3277997 3288097 3298297 3308497 3318697 3328897 3338997 3349197 3359297 3369297 3379397 3389397 3399497 3409497 3419497 3429597 3439597 3730305 3739597 3740305 3749597 3750305 3759597 3760305 3769597 3770305 3779597 3780305 3789597 3790305 3799497 3800305 3809497 3810306 3819497 3820306 3829397 3830307 3839297 3840308 3849097 3850311 3851213 3851415 3858687 3858897 3860397 3870397 3880397 3890397 3900397 3910397 3920397 3930397 3940397 3950397 3960397 3970397 3980397 3990311 3991213 3991415 3998586 3998797 4000309 4008997 4010308 4019097 4020307 4029197 4030307 4039197 4040306 4049197 4050306 4059197 4060305 4069297 4070305 4079297 4080305 4089297 4090305 4099297 4100305 4109297 4110305 4119297 4120305 4129297 4130305 4139297 4140305 4149297 4159297 4169297 4179297 4189297 4199297 4209297 4219297 4229297 4239297 4249297 4259297 4269197 4279197 4289197 4299197 4309197 4319197 4329197 4339097 4349097 4358997 4368997 4378897 4388897 4398797 4408697 4418597 4428397 4438297 4448097 4457894 4459596 4467677 4467891 4469293 4477487 4478889 4487283 4488485 4497180 4498182 4507176 4507778 4517172 4517374)
)

(define aword
(list 49698 59598 69598 79598 89598 99498 109498 119398 129298 139198 148998 158798 168598 178398 188198 197998 207677 207898 217498 227288 228990 229198 236970 237185 239298 246782 249398 256580 259498 266377 267879 269498 276061 276275 279598 285873 289598 295671 299598 305468 306970 309598 315152 315367 319698 324967 329698 334761 336267 339697 344445 344659 346267 354257 356267 364055 366267 373852 375354 376267 383536 383750 385152 386267 393348 396267 403146 406267 412944 416267 422627 422841 424243 426267 432439 436267 442237 446267 451920 452135 456267 461732 463334 466267 471530 476267 481328 486267 491011 491226 496267 500824 506267 510626 516267 520428 526267 530230 533132 536267 540233 546267 550235 553637 556267 560304 560538 566267 570640 576267 580809 581042 584344 586267 591145 596267 601347 606267 611516 611749 615051 616267 621852 626267 632021 632254 635556 636267 642357 646267 652559 656267 662861 666267 673067 679698 683233 683467 689698 693569 699598 703738 703971 709598 714073 717475 719598 724276 729598 734445 734678 737980 739498 744781 749498 754950 755184 758586 759298 765288 768990 769198 775498 785657 785898 795998 806162 806398 816498 826698 836998 847198 857374 857598 867698 877879 878098 888198 898398 908598 918798 928998 939098 949298 959398 969398 979498 989498 999598 1009598 1019598 1029698 1039698 1330406 1339698 1340406 1349698 1350406 1359698 1360406 1369698 1370406 1379698 1380406 1389698 1390406 1399598 1400406 1409598 1410407 1419598 1420407 1429498 1430408 1439398 1440409 1449298 1450412 1451314 1458788 1458998 1460498 1470498 1480498 1490498 1500498 1510498 1520498 1530498 1540498 1550498 1560498 1570498 1580498 1590410 1594954 1598788 1598998 1600410 1605054 1609298 1610410 1615054 1619398 1620409 1625054 1629498 1630409 1635055 1639598 1640409 1645055 1649598 1650409 1655055 1659598 1660409 1665055 1669698 1670409 1675155 1679698 1680409 1685155 1689698 1690409 1695155 1699698 1700409 1705155 1709698 1710409 1715156 1719698 1720409 1725156 1730409 1735056 1740410 1745056 1750410 1755056 1760410 1765056 1770411 1774956 1780411 1784956 1790412 1794856 1800512 1804855 1810513 1814755 1820514 1824655 1830515 1834555 1840516 1844455 1850617 1854355 1860619 1864154 1870621 1872223 1873954 1880724 1882526 1882728 1883435 1883654 1890753 1900853 1910852 1920952 1930951 1941051 1951150 1961249 1971248 1981347 1991546 2001645 2011743 2021941 2032138 2033940 2042425 2042634 2043536 2370406 2379698 2380406 2389698 2390406 2399698 2400406 2409698 2410406 2419698 2420406 2429698 2430406 2439598 2440406 2449598 2450407 2459598 2460407 2469498 2470408 2479398 2480409 2489298 2490412 2491314 2498788 2498998 2500498 2510498 2520498 2530498 2540498 2550498 2560498 2570498 2580498 2590498 2600498 2610498 2620498 2630410 2634954 2638788 2638998 2640410 2645054 2649298 2650410 2655054 2659398 2660409 2665054 2669498 2670409 2675055 2679598 2680409 2685055 2689598 2690409 2695055 2699598 2700409 2705055 2709698 2710409 2715155 2719698 2720409 2725155 2729698 2730409 2735155 2739698 2740409 2745155 2749698 2750409 2755156 2759698 2760409 2765156 2770409 2775056 2780410 2785056 2790410 2795056 2800410 2805056 2810411 2814956 2820411 2824956 2830412 2834856 2840512 2844855 2850513 2854755 2860514 2864655 2870515 2874555 2880516 2884455 2890617 2894355 2900619 2904154 2910621 2912223 2913954 2920724 2922526 2922728 2923435 2923654 2930753 2940853 2950852 2960952 2970951 2981051 2991150 3001249 3011248 3021347 3031546 3041645 3051743 3061941 3072138 3073940 3082425 3082634 3083536 3410406 3419698 3420406 3429698 3430406 3439698 3440406 3449698 3450406 3459698 3460406 3469698 3470406 3479598 3480406 3489598 3490407 3499598 3500407 3509498 3510408 3519398 3520409 3529198 3530412 3531314 3531516 3538788 3538998 3540498 3550498 3560498 3570498 3580498 3590498 3600498 3610498 3620498 3630498 3640498 3650498 3660498 3670412 3671314 3671516 3678687 3678898 3680410 3689098 3690409 3699198 3700408 3709298 3710408 3719298 3720407 3729298 3730407 3739298 3740406 3749398 3750406 3759398 3760406 3769398 3770406 3779398 3780406 3789398 3790406 3799398 3800406 3809398 3810406 3819398 3820406 3829398 3839398 3849398 3859398 3869398 3879398 3889398 3899398 3909398 3919398 3929398 3939398 3949298 3959298 3969298 3979298 3989298 3999298 4009298 4019198 4029198 4039098 4049098 4058998 4068998 4078898 4088798 4098698 4108498 4118398 4128198 4137995 4139697 4147778 4147992 4149394 4157588 4158990 4167384 4168586 4177281 4178283 4187277 4187879 4197273 4197475 4530406 4540406 4550406 4560406 4570407 4580407 4590408 4600408 4610409 4620409 4630410 4640411 4650413 4660414 4670415 4680417 4690418 4700420 4710421 4720423 4730425 4740426 4750428 4760429 4770431 4780432 4790434 4800435 4810437 4820410 4821112 4821338 4830409 4831516 4831740 4839698 4840408 4841841 4849698 4850407 4851943 4859698 4860407 4862144 4869698 4870406 4872346 4879698 4880406 4882447 4889698 4890406 4892649 4899598 4900406 4902750 4909598 4910406 4912952 4919598 4920406 4923054 4929498 4930405 4933255 4939398 4943357 4949198 4953558 4958788 4958998 4963698 4973898 4983998 4994198 5004298 5014498 5024598 5034798 5044898 5055098 5065198 5075098 5084898 5094758 5098788 5098998 5104556 5109298 5114355 5119398 5124253 5129498 5134051 5139598 5143950 5149598 5153748 5159598 5163547 5169698 5173445 5179698 5183243 5189698 5190406 5193142 5199698 5200406 5202940 5209698 5210406 5212738 5219698 5220406 5222637 5230406 5232435 5240407 5242334 5250407 5252132 5260408 5261930 5270409 5271729 5280410 5281112 5281314 5281527 5290426 5300424 5310422 5320421 5330419 5340418 5350416 5360415 5370414 5380412 5390411 5400410 5410410 5420409 5430408 5440408 5450407 5460407 5470406 5480406 5490406 5500406 5510406)
 )

(define equote
(list 71218 81216 91214 101213 111213 121213 123839 131213 133839 141213 143839 151213 153739 161239 171239 181239 191213 193739 201213 203839 211213 213839 221213 223839 231213 241213 251214 261216 271218 272733 282535 292437 302328 302938 312224 313438 322123 323639 332122 333739 342122 343839 352122 353839 362122 363839 372123 373839 382124 383738 392226 393638 402331 403237 412336 422535 432633 552122 562122 572123 582136 592138 602138 613539 623639 633739 643739 653738 662122 663638 672122 673637 682123 683536 692139 702139 712138 723638 733638 743637 752324 753839 762224 763839 772224 773739 782239 792139 802139 812425 813739 822324 823839 832224 833839 842223 852123 862123 863839 872123 873839 882125 883739 892139 902239 912439 923739 933839 943839 962734 972536 982437 992326 993338 1002224 1003538 1012223 1013639 1022123 1023639 1032122 1033739 1042122 1043739 1052122 1053739 1061314 1062123 1063738 1071214 1072223 1073638 1081214 1082225 1083537 1091239 1101139 1111138 1123638 1133638 1143637 1162634 1172436 1182337 1192225 1192728 1193238 1202223 1202728 1203438 1212123 1212728 1213539 1222122 1222728 1223539 1232122 1232728 1233639 1242122 1242728 1243639 1252123 1252728 1253639 1262124 1262728 1263639 1272228 1273538 1282228 1283537 1292328 1293336 1302528 1303235 1322324 1323839 1332224 1333839 1342224 1343739 1352239 1362139 1372139 1382325 1383739 1392224 1393839 1402223 1403839 1412123 1422124 1432124 1442224 1472328 1473339 1482229 1483438 1492223 1492630 1493638 1502122 1502730 1503739 1512122 1512731 1513839 1522122 1522831 1523839 1532122 1532832 1533839 1542123 1542932 1543839 1552224 1552934 1553739 1562226 1563038 1572127 1573137 1583236 1612122 1622122 1632022 1641937 1651638 1661539 1672122 1673639 1682122 1683739 1692122 1693739 1702122 1703638 1713637 1733237 1742327 1743138 1752227 1753039 1762227 1763032 1763539 1772123 1772931 1773639 1782122 1782930 1783739 1792122 1792830 1793739 1802122 1802829 1803638 1812123 1812729 1813637 1822124 1822728 1823537 1832238 1842239 1852339 1863739 1873738 1883637 1902324 1903839 1912224 1913839 1922224 1923739 1932239 1942139 1952139 1962425 1963739 1972324 1973839 1982224 1983839 1992223 2002123 2012123 2013839 2022123 2023839 2032125 2033739 2042139 2052239 2062439 2073739 2083839 2093839 2112734 2122536 2132437 2142326 2143338 2152224 2153538 2162223 2163639 2172123 2173639 2182122 2183739 2192122 2193739 2202122 2203739 2211314 2212123 2213738 2221214 2222223 2223638 2231214 2232225 2233537 2241239 2251139 2261138 2273638 2283638 2293637 2412634 2422436 2432337 2442225 2442728 2443238 2452223 2452728 2453438 2462123 2462728 2463539 2472122 2472728 2473539 2482122 2482728 2483639 2492122 2492728 2493639 2502123 2502728 2503639 2512124 2512728 2513639 2522228 2523538 2532228 2533537 2542328 2543336 2552528 2553235 2572122 2582122 2592123 2602124 2612127 2622129 2632131 2642122 2642634 2652122 2652836 2663138 2673339 2683538 2693335 2703033 2712122 2712831 2722122 2722628 2732126 2742124 2752122 2762122 2773237 2782327 2783138 2792227 2793039 2802227 2803032 2803539 2812123 2812931 2813639 2822122 2822930 2823739 2832122 2832830 2833739 2842122 2842829 2843638 2852123 2852729 2853637 2862124 2862728 2863537 2872238 2882239 2892339 2903739 2913738 2923637 2951314 2953839 2961214 2963839 2971214 2973739 2981239 2991139 3001139 3013739 3023839 3033839)
 )

(define aquote
(list 71218 81216 91214 101213 111213 121213 123839 131213 133839 141213 143839 151213 153739 161239 171239 181239 191213 193739 201213 203839 211213 213839 221213 223839 231213 241213 251214 261216 271218 272733 282535 292437 302328 302938 312224 313438 322123 323639 332122 333739 342122 343839 352122 353839 362122 363839 372123 373839 382124 383738 392226 393638 402331 403237 412336 422535 432633 552122 562122 572123 582136 592138 602138 613539 623639 633739 643739 653738 662122 663638 672122 673637 682123 683536 692139 702139 712138 723638 733638 743637 752324 753839 762224 763839 772224 773739 782239 792139 802139 812425 813739 822324 823839 832224 833839 842223 852123 862123 863839 872123 873839 882125 883739 892139 902239 912439 923739 933839 943839 962734 972536 982437 992326 993338 1002224 1003538 1012223 1013639 1022123 1023639 1032122 1033739 1042122 1043739 1052122 1053739 1061314 1062123 1063738 1071214 1072223 1073638 1081214 1082225 1083537 1091239 1101139 1111138 1123638 1133638 1143637 1162634 1172436 1182337 1192225 1192728 1193238 1202223 1202728 1203438 1212123 1212728 1213539 1222122 1222728 1223539 1232122 1232728 1233639 1242122 1242728 1243639 1252123 1252728 1253639 1262124 1262728 1263639 1272228 1273538 1282228 1283537 1292328 1293336 1302528 1303235 1322324 1323839 1332224 1333839 1342224 1343739 1352239 1362139 1372139 1382325 1383739 1392224 1393839 1402223 1403839 1412123 1422124 1432124 1442224 1472328 1473339 1482229 1483438 1492223 1492630 1493638 1502122 1502730 1503739 1512122 1512731 1513839 1522122 1522831 1523839 1532122 1532832 1533839 1542123 1542932 1543839 1552224 1552934 1553739 1562226 1563038 1572127 1573137 1583236 1612122 1622122 1632022 1641937 1651638 1661539 1672122 1673639 1682122 1683739 1692122 1693739 1702122 1703638 1713637 1733237 1742327 1743138 1752227 1753039 1762227 1763032 1763539 1772123 1772931 1773639 1782122 1782930 1783739 1792122 1792830 1793739 1802122 1802829 1803638 1812123 1812729 1813637 1822124 1822728 1823537 1832238 1842239 1852339 1863739 1873738 1883637 1902324 1903839 1912224 1913839 1922224 1923739 1932239 1942139 1952139 1962425 1963739 1972324 1973839 1982224 1983839 1992223 2002123 2012123 2013839 2022123 2023839 2032125 2033739 2042139 2052239 2062439 2073739 2083839 2093839 2112734 2122536 2132437 2142326 2143338 2152224 2153538 2162223 2163639 2172123 2173639 2182122 2183739 2192122 2193739 2202122 2203739 2211314 2212123 2213738 2221214 2222223 2223638 2231214 2232225 2233537 2241239 2251139 2261138 2273638 2283638 2293637 2413237 2422327 2423138 2432227 2433039 2442227 2443032 2443539 2452123 2452931 2453639 2462122 2462930 2463739 2472122 2472830 2473739 2482122 2482829 2483638 2492123 2492729 2493637 2502124 2502728 2503537 2512238 2522239 2532339 2543739 2553738 2563637 2582324 2584748 2592224 2594748 2602224 2604648 2612248 2622148 2632148 2642425 2643638 2644648 2652324 2653739 2654748 2662224 2663739 2664748 2672123 2673839 2682123 2683839 2692123 2693839 2702124 2703839 2712124 2713739 2722125 2723638 2732228 2733437 2742336 2752435 2762633 2782324 2784748 2792224 2794748 2802224 2804648 2812248 2822148 2832148 2842425 2843638 2844648 2852324 2853739 2854748 2862224 2863739 2864748 2872123 2873839 2882123 2883839 2892123 2893839 2902124 2903839 2912124 2913739 2922125 2923638 2932228 2933437 2942336 2952435 2962633 2991314 2993839 3001214 3003839 3011214 3013739 3021239 3031139 3041139 3053739 3063839 3073839 3082122 3092122 3094547 3102123 3104548 3112125 3114548 3122127 3124548 3132130 3134648 3142123 3142432 3144647 3152122 3152634 3154546 3162122 3162936 3164245 3173143 3183340 3193437 3203134 3212122 3212832 3222122 3222629 3232126 3242124 3252122 3262122)
 )

(define endquote
(list 83739 84445 93639 94445 103639 104344 113639 114244 123739 124143 133842 252122 262122 264547 272123 274548 282125 284548 292127 294548 302130 304648 312123 312432 314647 322122 322634 324546 332122 332936 334245 343143 353340 363437 373134 382122 382832 392122 392629 402126 412124 422122 432122 452733 462535 472437 482328 482938 492224 493438 502123 503639 512122 513739 522122 523839 532122 533839 542122 543839 552123 553839 562124 563738 572226 573638 582331 583237 592336 602535 612633 632122 642122 652123 662136 672138 682138 693539 703639 713739 723739 733738 742122 743638 752122 753637 762123 763536 772139 782139 792138 803638 813638 823637 932324 933839 942224 943839 952224 953739 962239 972139 982139 992425 993739 1002324 1003839 1012224 1013839 1022223 1032123 1042123 1043839 1052124 1053839 1062125 1063739 1072139 1082239 1092339 1102425 1103739 1112324 1113839 1122224 1123839 1132223 1142123 1152123 1153839 1162123 1163839 1172125 1173739 1182239 1192239 1202439 1213739 1223839 1233839 1242122 1252122 1262123 1272136 1282138 1292138 1303539 1313639 1323739 1333739 1343738 1352122 1353638 1362122 1363637 1372123 1373536 1382139 1392139 1402138 1413638 1423638 1433637 1462328 1463339 1472229 1473438 1482223 1482630 1483638 1492122 1492730 1493739 1502122 1502731 1503839 1512122 1512831 1513839 1522122 1522832 1523839 1532123 1532932 1533839 1542224 1542934 1543739 1552226 1553038 1562127 1563137 1573236 1602122 1612122 1622022 1631937 1641638 1651539 1662122 1663639 1672122 1673739 1682122 1683739 1692122 1693638 1703637 1822122 1823839 1832122 1833839 1842122 1843739 1851639 1861439 1871339 1881214 1882122 1883739 1891112 1892122 1893839 1901112 1902122 1903839 1911112 1912122 1913839 1921113 1922122 1931115 1941116 1942324 1943839 1951216 1952224 1953839 1961316 1962224 1963739 1971114 1972239 1981114 1982139 1991114 1992139 2003739 2013839 2023839 2042324 2043839 2052224 2053839 2062224 2063739 2072239 2082139 2092139 2102325 2103739 2112224 2113839 2122223 2123839 2132123 2142124 2152124 2162224 2192328 2193339 2202229 2203438 2212223 2212630 2213638 2222122 2222730 2223739 2232122 2232731 2233839 2242122 2242831 2243839 2252122 2252832 2253839 2262123 2262932 2263839 2272224 2272934 2273739 2282226 2283038 2292127 2293137 2303236 2332122 2342122 2352022 2361937 2371638 2381539 2392122 2393639 2402122 2403739 2412122 2413739 2422122 2423638 2433637 2542122 2552122 2562123 2572136 2582138 2592138 2603539 2613639 2623739 2633739 2643738 2652122 2653638 2662122 2663637 2672123 2673536 2682139 2692139 2702138 2713638 2723638 2733637 2742324 2743839 2752224 2753839 2762224 2763739 2772239 2782139 2792139 2802425 2803739 2812324 2813839 2822224 2823839 2832223 2842123 2852123 2853839 2862123 2863839 2872125 2873739 2882139 2892239 2902439 2913739 2923839 2933839 2952734 2962536 2972437 2982326 2983338 2992224 2993538 3002223 3003639 3012123 3013639 3022122 3023739 3032122 3033739 3042122 3043739 3051314 3052123 3053738 3061214 3062223 3063638 3071214 3072225 3073537 3081239 3091139 3101138 3113638 3123638 3133637 3152634 3162436 3172337 3182225 3182728 3183238 3192223 3192728 3193438 3202123 3202728 3203539 3212122 3212728 3213539 3222122 3222728 3223639 3232122 3232728 3233639 3242123 3242728 3243639 3252124 3252728 3253639 3262228 3263538 3272228 3273537 3282328 3283336 3292528 3293235 3312324 3313839 3322224 3323839 3332224 3333739 3342239 3352139 3362139 3372325 3373739 3382224 3383839 3392223 3393839 3402123 3412124 3422124 3432224 3462328 3463339 3472229 3473438 3482223 3482630 3483638 3492122 3492730 3493739 3502122 3502731 3503839 3512122 3512831 3513839 3522122 3522832 3523839 3532123 3532932 3533839 3542224 3542934 3543739 3552226 3553038 3562127 3563137 3573236 3602122 3612122 3622022 3631937 3641638 3651539 3662122 3663639 3672122 3673739 3682122 3683739 3692122 3693638 3703637 3723237 3732327 3733138 3742227 3743039 3752227 3753032 3753539 3762123 3762931 3763639 3772122 3772930 3773739 3782122 3782830 3783739 3792122 3792829 3793638 3802123 3802729 3803637 3812124 3812728 3813537 3822238 3832239 3842339 3853739 3863738 3873637 3892324 3893839 3902224 3903839 3912224 3913739 3922239 3932139 3942139 3952425 3953739 3962324 3963839 3972224 3973839 3982223 3992123 4002123 4003839 4012123 4013839 4022125 4023739 4032139 4042239 4052439 4063739 4073839 4083839 4102734 4112536 4122437 4132326 4133338 4142224 4143538 4152223 4153639 4162123 4163639 4172122 4173739 4182122 4183739 4192122 4193739 4201314 4202123 4203738 4211214 4212223 4213638 4221214 4222225 4223537 4231239 4241139 4251138 4263638 4273638 4283637)
 )

(define w_off (/ (screen_width) 3))
(define h_off (/ (screen_height) 4.5))
(define top 400)
(define h_off (/ (screen_height) 4.5))
(define ratio .802)

(define (draw_pixel x y)
 (penup)
 (setposition (- x w_off) (- y h_off))
 (pendown)
 (forward 1)
 (penup)
 )

(define (box scale)
 (penup)
 (setposition (* scale -420) (+ 200 (* scale 200)))
 (pendown)
 (setposition (* scale 420) (+ 200 (* scale 200)))
 (setposition (* scale 420) (- 200 (* scale 600)))
 (setposition (* scale -420) (- 200 (* scale 600)))
 (setposition (* scale -420) (+ 200 (* scale 200)))
 (penup)
 )

(define (underline scale len)
 (penup)
 (setposition (* scale len) (- 200 (* scale 700)))
 (pendown)
 (setposition (* scale ( - len)) (- 200 (* scale 700)))
 (penup)
 )

(define (word codes scale xoff yoff)
 (or (< scale 0.014) (draw_bar (car codes) scale xoff yoff))
 (or (null? (cdr codes)) (word (cdr codes) scale xoff yoff))
)

(define (draw_bar code scale xoff yoff)
 (define x (* .8 (/ code 10000)))
 (penup)
 (setposition (* scale (- x xoff)) (- 200 (* scale (- yoff (* -.72 (modulo (/ code 100) 100))))))
 (pendown)
 (setposition (* scale (- x xoff)) (- 200 (* scale (- yoff (* -.72 (modulo code 100))))))
 (penup)
 )

(define (square x) (* x x))

; Luminisity per iteration function. Feel free to experiment.
(define f
 (lambda (x) (expt x (/ 1 1.5)))
 )

(define (loop scale)
 (define ecolor (rgb (f scale) (f scale) (f scale)))
 (define acolor (rgb (f (* ratio scale)) (f (* ratio scale)) (f (* ratio scale))))
 (color ecolor)
 (box scale)
 (underline scale 148)
 (word eword scale 182 620)
 (color acolor)
 (box (* ratio  scale))
 (underline (* ratio scale) 180)
 (word aword (* ratio scale) 221 620)
 (cond
  [(< scale .04) 1]
  [else (begin
    (color ecolor)
    (word equote scale 293.5 702)
    (word endquote scale 54.5 702)
    (color acolor)
    (word aquote (* ratio scale) 294.5 706)
    (word endquote (* ratio scale) 40.1 706)
    )]
  )
 (cond
  [(< scale .0001) 1]
  [else (loop (* ratio (* ratio scale)))])
)

(define (draw)
 (hideturtle)
 (speed 0)
 (pendown)
 (bgcolor (rgb 0 0 0))
 (color (rgb 1 1 1))
 (word aword (/ (/ 29 32) 0.8) 222 620)
 (box (/ (/ 29 32) 0.8))
 (box (/ (/ 29 32) 0.64))
 (box (/ (/ 29 32) 0.512))
 (box (/ (/ 29 32) 0.4096))
 (loop  (/ 29 32))
 (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)