;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: The worst program you will ever read
;;;
;;; Description:
;;;    That twisted, red monstrosity from another world
;;;    Pales in comparison to the horror that lies within
;;;    View code to see why!

; You might have to scroll right
;
;     __    ___       ___   ____   __    ___   __
;    / /`_ / / \     | |_) | |_   / /\  | |_) ( (`
;    \_\_/ \_\_/     |_|_) |_|__ /_/--\ |_| \ _)_)
;
;
;

; THIS IS AN ACTUAL RAY TRACER, NOT A STORED IMAGE!!!!!

(define (draw)
	(define val 0000001400010014000200140003001400150011001100040014000300140015001100110015001100110011000100140005001400030014001500110011000400140006001400030014001500110011001500110011001500110011001100010014000700140003001400150011001100040014000600140006001400030014001500110011001500110011001500110011001500110011001100010014000800140003001400150011001100040014000600140006001400060014000300140015001100110015001100110015001100110015001100110015001100110011000100140009001400100014001100140015001100110011001200140013001400020014001000140015001100110002001400110014001500110011001500110011001100130014000500140010001400150011001100050014001100140015001100110015001100110011001300140007001400100014001500110011000700140011001400150011001100150011001100110015001100110011001100150011001100110001001400140014001000140011001400150011001100110012001400150014000200140010001400150011001100020014001100140015001100110015001100110011001500140005001400100014001500110011000500140011001400150011001100150011001100110015001400070014001000140015001100110007001400110014001500110011001500110011001100150011001100110011001500110011001100010014001600140010001400110014001500110011001100130014001700140002001400100014001500110011000200140011001400150011001100150011001100110017001400050014001000140015001100110005001400110014001500110011001500110011001100170014000700140010001400150011001100070014001100140015001100110015001100110011001500110011001100110015001100110011000100140018001400030014001900140015001100110011001200140017001400020014000300140015001100110019001400150011001100110017001400050014000300140015001100110019001400150011001100110017001400070014000300140015001100110019001400150011001100110015001100110011001100150011001100110001001400200014000300140015001100110021001400160014000300140003001400150011001100110015001100110015001100110011000100140022001400030014001500110011002300140024001400000012002000140003001400150011001100150011001100110003001400180014000300140025001400200014000300140015001100110015001100110015001100110011001500110011001100110015001100110011000100140026001400100014001100140015001100110011001400140010001400180014001100140017001400020012001600140010001400110014001500110011001100150011001100110015001100110011001500110011001100150011001100110001001400270014001000140011001400190014001500110011001100110001001400280014001500140016001400100014001100140015001100110011001500110011001500110011001100010014002900140015001400010012001700140019001400190014001500140001001200300014002800140015001100110015001100110011001500110011001100110015001100110011001500110011001100230014003100140029001400000012001500110011001100260014001000140011001400150011001100110032001400150001001400330014002100140029001400150011001100150011001100110009001400180014001000140019001400150011001100110018001400110014001500140017001400190014002800140015001100110011003300140015001100110011001500110011001100150011001100110015001100110011001100150011001100110011001500110011001100110011000100140034001410000012001500110011001100010014003500140025001400010012010000120015001100110011001500110011001100010014003600140100001200150011001100110001001400370014002500140314001201000012001500110011001100150011001100110001001400380014001000140011001400150011001100110023001400310014001000140011001400150011001100110010001400110014001500110011001100110015001100110011000100140039001400100014001100140015001100110011002300140031001400100014001100140015001100110011001100140010001400150011001100110011001500110011001100010014004000140011001400410014001500110011001100230014002400140041001400000012001500110011001100010012001700140011001400400014001500140011001400010012001500110011001100410014001500110011001100150011001100110015001100110011001100150011001100110001001400300014000200140015001100110017001400020014000200140015001100110011001500110011001100010014004200140002001400150011001100430014000200140001001200150011001100110015001100110011000100140044001400120014003500140000001200000012001500110011001100110015001100110011000100140045001400120014000000120035001400000012001500110011001100110015001100110011000100140046001400120014000000120000001200350014001500110011001100110015001100110011000100140047001400100014001100140015001100110011002300140048001400100014001500110011004900140015001500110011005000140012001400040014001000140015001100110004001400110014001500110011001500110011001100470014000600140010001400150011001100060014001100140015001100110015001100110011001500110011001100150011001100110011001500110011001100010014005100140052001400100014001100140015001100110011001100530014005400140010001400150011005200140002001400100014001500110011000500140010001400150011001100150011001100110015001100110011004700140010001400110014001500110011001100150011001100110015001100110011000100140055001400560014001500110011002300140048001400060014005600140015001100110015001100110004001400560014001500110011003800140055001400060014005600140015001100110015001100110004001400560014001500110011001500110011001100150011001100110011001500110011001100010014005700140056001400150011001100230014004800140006001400560014001500110011001500110011000400140056001400150011001100390014005700140006001400560014001500110011001500110011000400140056001400150011001100150011001100110015001100110011001100150011001100110001001400580014005600140015001100110001001400590014006000140061001400620014005600140015001100110011001100110063001400480014005600140015001100110060001400150011001100310014000400140056001400150011001100610014001500110011001100590014006200140004001400560014001500110011001300140001001200620014001500110011001100060014005600140015001100110015001100110011001100110015001100110064001400590014006000140061001400130014000100120062001400150011001100110006001400560014001500110011001500110011001100110011001500110011001500110011001100110015001100110011000100140065001400590014001500140001001200150011001100340014000000120056001400150011001100110011001100150011001100110065001400150011001100110011001100010014006600140056001400670014001500110011001100230014002400140067001400000012001500110011001100040014005600140015001100110066001400060014005600140015001100110015001400670014000100120015001100110011001500110011001100150011001100110011001500110011001100010014006800140056001400150011001100690014000200140056001400150011001100050014005600140015001100110007001400560014001500110011001500110011001100110015001100110011000100140070001400710014007200140073001400740014001500110011001100110011002300140031001400710014007200140015001100110011000000140074001400710014001500110011007000140013001400730014007100140015001100110011007200140073001400740014001500110011001100110011001500110011001100490014001500150011001100150011001100110011001500110011001100010014007500140076001400770014001500110011001100010014007800140015001400770014000900140076001400440014001500110011001100150011001100770014007600140015001100110015001100110011001500110011001100010014007900140015001400770014000900140076001400450014001500110011001100150011001100770014007600140015001100110015001100110011001500110011001100010014008000140015001400770014000900140076001400460014001500110011001100150011001100770014007600140015001100110015001100110011001500110011001100220014001200140078001400790014008000140015001100110011001100150011001100150011001100110011001100110001001400810014007600140082001400770014008300140015001100110011001100110023001400840014008500140020001400140014007600140086001400150011001100110015001100110036001400150011001100110024001400830014000000120015001100110011001500110011001100870014007600140015001100110032001400880014007700140076001400150011001100150011001100150011006300140089001400850014008800140015001400350014001500110011001500110011001100310014008800140035001400150011001100110015001100110011000100140090001400750014007600140077001400150011001100110015001100110011000100140091001400920014007600140015001100110015001100110011000100140093001400070014009100140015001100110015001100110011000100140094001400080014009100140015001100110015001100110011000100140095001400960014007600140090001400970014007700140005001400910014001500110011001500110011001100110011001100150011001100110001001400980014002300140024001400940014000100120015001100110011004900140000001200000012000000120015001100110011001500110011002300140085001400160014008200140090001400150011001100110000001200150011001100110081001400090014007600140018001400900014003900140017001400250014001200120010001200150011001100110088001400150011001100110017001400250014000700120010001200150011001100110035001400150011001100110015001100110011001500110011001100150011001100110027001400820014001800140090001400150014000100120015001100110015001100110011002500140015001200100012001500110011001100150011001100110011007700140015001400830014000100120015001100110011001500110011001100110011008100140009001400760014001800140090001400380014001700140025001400150014001200120015001100110010001200150011001100110088001400150011001100110017001400250014001500140007001200150011001100100012001500110011001100350014001500110011001100150011001100110015001100110011001500110011001100270014008200140090001400250014006700120100001200150011001100110015001100110011001100770014001500140083001400010012001500110011001100150011001100110011001100150011001100110011001500110011001100110015001100110011000100140099001400090014001800140095001400940014001500110011001100180014009800140015001400010012009400140015001100110011001500110011001100150011001100110015001100110011002300140100001401010014009300140015001100110015001100110000001400320014001500010014010200140081001400090014007600140018001400900014003900140017001400250014001200120010001200150011001100110088001400150011001100110017001400250014000700120010001200150011001100110035001400150011001100110015001100110011001500110011001100150011001100110026001400820014009000140015001100110011007700140015001400830014000100120015001100110011001500110011001100110011001500110011001100090014001800140099001400150014000100120093001400150011001100110015001100110011001800140102001400930014001500110011001100150011001100110015001100110011001100150011001100990014001500110011001100110015001100110011001100110011001100110011006400140081001400090014007600140018001400820014001700140025001400010012001000120015001100110011010300140088001400150011001100150011001100110015001100110011001500110011001100820014007700140015001400830014000100120015001100110011001500110011001100110011001500110011001500110011001100150011001100110015001100110011001100150011001100110001001400960014007600140090001400970014007700140104001400150011001100110011001100110001001400590014010500140082001400880014001500110011001100110023001400850014001300140025001400050012100000120015001100110011002000140014001401050014009700140015001100110011001500110011001500110011001100200014001400140076001400970014001500110011001100150011001100150011001100110088001400590014000900140105001400180014008200140039001400250014000500120100001200150011001100110017001400250014000600120010001200150011001100110103001400770014010500140015001100110015001100110015001100110011001500110011001100150011001100110015001100110011008200140038001400770014010500140015001100110088001400150011001100110015001100110011001100150011001100110011001500110011001100010014010600140022001400140014009700140076001400150011001100110015001100110015001100110011000100140107001400590014009700140018001401060014001500140001001200150011001100150011001100111000001200150011001100110011001500110011001100630014008500140107001400000012001500110011001100180014010400140076001400150011001100390014002500140012001201000012001500110011001100160014009000140106001400150011001100110015001100110011001500110011001100150011001100850014010700140025001400150014000100120015001100110010001200150011001100110015001100110011001800140104001400760014001500110011003900140025001400120012010000120015001100110011001700140016001400900014010600140015001100110011001000120015001401070014002500140015001400010012001500110011001000120015001100110011001500110011001100150011001100110011001500110011001100150011001100110015001100110064001400180014010400140076001400150011001100250014001200120100001200150011001100110015001100110011001500110011001500110011001100110015001100110011001100110011000100140087001400760014001500110011000100140108001400220014007600140015001100110015001100110011000100140109001400230014008900140085001400050014007600140015001100110000001200150011001100110085001400070014007600140015001100110000001200150011001100110015001100110011011000140103001400170014011100140017001400530014005400140003001400150011011200140017001400030014000200120015001100110011001500110011001500110011001101080014001500110011001100150011001100110015001100110015001100110015001100110049001400000012000000120000001200150011001100110015001100110015001100110011001100150011001100110001001401130014002500140016001401080014001200140025001400040012001000120015001100110011000000120001001200150011001100110011001500110011001100200014001200140025001400040012001000120015001100110011000000120001001200150011001100110011001500110011001500110011001100150011001100110001001401140014002100140015001400010012003000140113001400150011001100150011001100110015001100110015001100110011002300140024001401140014000000120015001100110011010900140032001400150001001401150014002500140016001401080014004900140000001200010012000000120015001100110011001500110011001500110011001101140014001500110011001100150011001100110023001401160014003900140103001401130014001500110011010300140115001400150011001100150011001100110001001200150011001100110109001400530014005700140047001401090014005300140057001400470014011700140025001400130014011800140015001401130014001500110011001500110011002500140005001200100012001500110011001100150011001100110025001400150012001000120015001100110011001500110011001100250014001300140119001401150014001500110011002500140001001200100012001500110011001100150011001100110025001400150012001000120015001100110011001500110011001100150011001100110117001400250014001300140118001401130014001500110011002500140003001200100012001500110011001100150011001100110025001400150012001000120015001100110011001500110011001100250014001300140119001401150014001500110011002500140005001200100012001500110011001100150011001100110025001400150012001000120015001100110011001500110011001100150011001100110015001100110011001500110011001100150011001100110015001100110011001500110011001100110015001100110011001100150011001100110011001500110011001100110011001100110001001401170014000200140005001400150011001100110001001401200014001500140017001400020014002500140035001200100012001500110011001100150011001100110025001400250012001000120015001100110011001500110011001100150011001100110001001401210014001500140017001400050014000200120015001100110011000100120015001100110011001500110011001100010014012200141000001200150011001100110001001401230014002500140001001201000012001500110011001100150011001100110001001400590014000200140005001401240014001500110011001100110023001400840014002400140124001401220014001500110011001101160014001300140030001400020014001500110011003000140005001400150011001100150011001100110010001200150011001100110015001100110011012400140032001401250014001500140030001400020014001500110011003000140005001400150011001100150011001100110015001100110015001100590014001500140125001400250014000100120010001200150011001100110015001100110011001300140017001400020012000200140005001400150011001100110011002500140065001201000012001500110011001100150011001100110013001400010012012400140015001100110011001500110011001100110015001100110011001500110011001100110015001100110011000100140107001400590014012000140121001400000012001500110011001100110015001100110011012600140038001400010012002500140107001401220014001500110011001100150011001100110015001100110015001100110011001100110011001100110011000100140126001401270014001500110011002300140031001401270014002500140005001200100012001500110011001100150011001100110018001400120014000200120001001200000012001500110011001100110127001400150011001100110018001400090014001800140012001400010012002500140005001200100012001500110011001100000012001500110011001100110015001400010012012700140015001100110011001500110011001100180014004900140001001200010012000100120015001100110011001500110011001500140127001400250014000500120010001200150011001100110015001100110011001500110011001100150011001100110002001200150011001100110015001100110011001100150011001100110001001401100014012700140015001100110023001400310014012700140025001400050012001000120015001100110011001500110011001100180014001200140000001200000012002500140008001200100012001500110011001100150011001100110011012700140015001100110011001800140009001400180014001200140000001200000012002500140004001200100012001500110011001100150011001100110011001500140001001201270014001500110011001100150011001100110018001400120014002500140004001200100012001500110011001100000012002500140004001200100012001500110011001100150011001100110011001500140127001400250014000500120010001200150011001100110015001100110011001500110011001100150011001100110002001200150011001100110015001100110011001100150011001100110001001401280014012900140015001100110004001401290014001500110011001500110011001100010014007600140129001400150011001100040014000600140129001400150011001100150011001100150011001100110001001400860014001200140000001200250014001500140530001200150011001110000012001500110011001100250014001500140035001200150011001100100012001500110011001100150011001100110011001500110011001100010014009700140012001402000012020000120015001401000012001500110011001500110011001100110015001100110011000100140130001401050014012800140015001100110011005400140076001400150011000100140123001400140014007600140105001400150011001100110015001100110011001500140020001400140014007600140105001400150011001100110015001100110128001400150011001100110015001100110011001100150011001100110001001401310014007700140105001400150011001100110054001400760014001500110001001401320014001400140076001401050014001500110011001100150011001100110001001401330014013400140017001400300012000500140132001400150011001100150011001100110015001100110015001100110011000100140135001401120014001700140030001200050014013200140015001100110015001100110011001500110011001500110011001100010014013600140012001400130014001700140002001401320014001500110011013300140015001100110011001700140007001401320014001500110011013500140015001100110011001500110011001100050014013200140015001100110013001400170014000200140132001400150011001100150014013500140015001100110015001100110011001700140007001401320014001500110011013300140015001100110011001500110011001100150011001100110011001500110011001100770014000900140105001401360014001500110011001100150011001100150011001100110011001100110011001500110011001100010014013700140130001400490014000000120000001200000012001500110011001100150011001100010012001500110011001100150011001100110001001401380014013000140012001400000012002500140015001400150012001500110011001000120015001100110011000400120015001100110011001100010012001500110011001100150011001100110001001401390014013000140012001400030012000000120000001200150011001100110011000300120015001100110011001500110011001100010014014000140130001400120014001300120007001200500012001500110011001100110010001200150011001100110015001100110011000100140141001401300014001200140015001400060012001500110011000500120009001200150011001100110011000100120015001100110011001500110011001100010014014200140105001401430014001500110011001100540014007600140015001100010014013200140014001401050014007600140015001100110011001500110011001100150014002000140012001400150014002000140012001400020014013200140015001100110000001200250014000500140132001400150011001100020012001500110011001100150011001100110011001500110011000200140143001400150011001100150011001100110007001401320014001500110011000000120015001100110011001100150011001100050014014300140015001100110015001100110011001500110011001100110015001100110011000100140144001401050014014500140015001100110011005400140076001400150011000100140132001400140014007600140105001400150011001100110015001100110011000100140125001400200014005100140025001401320014014500140015001100110011001100150011001100150011001100110017001401250014001500140125001400010012001500110011001100250014002000140051001400250014013200140051001400170014014500140145001400150011001100110011001500110011001100110015001100110015001100110015001100110011001100150011001100110011001100150011001100110001001401460014007600140015001100110013001401440014001200140015001400050012001500110011001000120010001200150011001100110011001200140001001200010012002500140015001200100012001500110011001100150011001100110011001500110011001100760014001500110011001700140025001400040012001000120015001100110011011100140017001400530014005400140003001400150011011200140017001400030014000500120015001100110011001500110011001500110011001100180014001400140076001400120014000400120003001200090012001500110011001100110015001100110011002500140003001200150011001100150011001100110015001100110011001500110011001100150011001100110015001100110011001500110011001100010014014700140076001400150011001100550014001200140015001400050014007600140015001100110025001400150014001500120015001100110010001200150011001100110015001100110011001500110011001500110011001500110011001100010014014800140076001400150011001100150014000500140076001400150011001100150014000100120015001100110015001100110011001500110011001100010014014900140076001400150011001100010014012500140051001400170014001200140010001200100012001000120015001100110011001100760014001500110011001100110015001100110011000100140150001400130014015100140002001401250014001500110011001500110011015100140007001401250014001500110011001500110011001500110011001100150011001100110023001401010014004300140150001400020012001500110011001100150011001100120014000100120001001200010012001500110011001100110012001400250014000700120010001200150011001100110025001400070012001000120015001100110011002500140007001200100012001500110011001100150011001100110011001500110011001100110015001100110011001100110001001401520014001200140012001401300014001200140000001200250014001500140103001200150011001100100012001500110011001100000012001500110011001100110010001200150011001100110054001400760014001500110012001400010012000100120001001200150011001100110011001500110011001100250014000400120010001200150011001100110001001200150011001100110011001100120014014000140054001400760014001500110012001400000012000100120001001200150011001100110011001500110011001100000012002500140006001200100012001500110011001100150011001100110011001100120014013000140012001400250014001500140004001200150011001100100012001500110011001100250014001500140042001200150011001101000012001500110011001100250014001500140022001200150011001100100012001500110011001100150011001100110011002500140001001200100012001500110011001100150011001100110054001400760014001500110012001400010012000100120001001200150011001100110011001500110011001100000012000000120015001100110011001100110012001401300014001200140025001400040012001000120015001100110011002500140015001400420012001500110011010000120015001100110011002500140015001400220012001500110011001000120015001100110011001500110011001100110025001400010012001000120015001100110011001500110011001100540014007600140015001100120014002500140007001200100012001500110011001100250014000700120010001200150011001100110025001400070012001000120015001100110011001500110011001100110015001100110011000100120001001200150011001100110011001100120014013100140142001400120014000000120025001400150014000500120015001100110010001200150011001100110025001400150014024500120015001100110100001200150011001100110015001100110011001100120014002500140001001200100012001500110011001100250014000300120100001200150011001100110015001100110011001500110011001100120014000000120025001400150014000400120015001100110010001200150011001100110025001400150014024500120015001100110100001200150011001100110015001100110011001100150011001100110054001400760014001500110012001400010012000000120000001200150011001100110011001500110011001100000012000100120015001100110011001100110015001100110011001100110011001500110011001100010014015300140076001400150011001100550014005300140054001400910014001500110004001400910014001500110011007600140015001100110015001100110011015200140015001100110011001500110011001500110011001100010014009200140076001400150011001100660014015200140058001400530014005400140091001400150011000400140091001400150011001100760014001500110011001500110011001101520014001500110011001100150011001100150011001100110015001100110011000100140154001400020014000500140015001100110011000100140076001400120014000200140005001424000012001500110011001100110015001100110011000100140082001400220014007600140015001100110015001100110011008100140086001400820014015300144000001200150011001100110011001100150011001100110011001101550014003900140001001200250014015600140002001200150011001100110015001100110011001500110011000100140157001400020014000500140158001400150011001100110011002300140159001400000014016000140002001400150011001101600014004900140015001400150011001100150011001101600014000500140015001100110160001400490014001500140015001100110015001100110160001401580014001500110011016100140015001100150011001100110011001100110011004900140015001500110011001500110011001100110162001400020014000500140158001400150011001100110011001500110011001100110070001400150014120000120015001100111200001201560014005400140002001400150011007000140015001403000012001500110011090000120156001400540014000500140015001100010014016300140154001400020014000500140015001100110011001500110011001100010014016400140154001400020014001300140005001400250014015600140002001200150011001100110015001100110011001500110011001100150011001100110001001401650014015400140013001400020014002500140156001400020012001500110011001100150011001100110005001400150011001100110015001100110011000100140166001401540014001300140002001400250014015600140002001200150011001100110015001100110011001300140005001400250014015600140002001200150011001100110015001100110011001500110011001100150011001100110001001401270014001800140009001400090014016300140164001400150011001100110009001401650014016600140015001100110011001500110011001100250014002500120100001200150011001100110015001100110011001500110011001101570014016700140013001412000012000200140015001100110011015600140015001100110011016700140013001403000012000500140015001100110011015600140015001100110011006800140127001400150011001100150011001100110011001500110011001100110011001100110011001500110011001100110011001500110011001100150011001100110011001100150011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011)    
	(define symlst '(begin define x v car y cdr z w add a b list + sub - dot * scale k size sqrt normalize if = / reflect refract c1 tosqrt square < let c2 infty eps maxdist pi min max exp e frac modulo dx dy dz zip null? quote cons elem-op op map lambda min-val lst max-val min-i helper best_i best_val curr_i cond else out get-i i rgb-list rgb lowtohigh low high step f calc-normal vec sdf d1 d2 d3 raymarch dir steps or > camera skybox closest and normal obj closest-obj reflectivity opacity surface illumination light through no-reflect not zero? reflected abs colorfunc pos incoming ret d baseline nebula reduce sin cosphi denom sintheta >= julia acos asin zx zy lim delta curr temp heat val rad circle make-sphere-sdf twist relpos c cos s q sphere-sdf hemisphere-sdf sphere-1-sdf sphere-2-sdf sphere-3-sdf make-torus-sdf t make-ellipse-sdf r bumpy-sdf wall-sdf floor-sdf checkerboard parity floor objects world-sdf get-pixel-val pixelsize blocksize pixel-debug color debug display newline pixel v1 v2 v3 v4 quotient))

  (define (lookup i)
      (define (helper i lst)
          (if (= i 0)
              (car lst)
              (helper
                      (- i 1)
                      (cdr lst))))
      (helper i symlst))

  (define (decode x)
      (define opcode (remainder x 10000))
      (define rest (quotient x 10000))
      (define next (remainder rest 10000))
      (cond
          ((= opcode 11)
              (begin
                  (define ret1 (decode rest))
                  (define newrest (quotient
                                      rest
                                      (cdr ret1)))
                  (define ret2 (decode newrest))
                  (cons
                        (cons
                              (car ret2)
                              (car ret1))
                        (*
                           (cdr ret1)
                           (cdr ret2)
                           10000))))
          ((= opcode 12)
              (cons next 100000000))
          ((= opcode 14)
              (cons (lookup next) 100000000))
          ((= opcode 16)
              (cons (= next 2) (* 1 1 10000 10000)))
          ((= opcode 15)
              (cons '() 10000))))

 (define blocksize 1)
 ; (define blocksize 100) ; UNCOMMENT FOR FAST(ISH) RENDERING

  ;; UNCOMMENT TO TRY WITH DR RACKET
    ; YOU ALSO NEED TO PUT
      ; #lang racket
      ;(require graphics/graphics)
    ; AT THE TOP OF THE FILE

  ;(define (map func lst)
  ;  (if (null? lst)
  ;      '()
  ;      (cons
  ;       (func (car lst))
  ;       (map func (cdr lst)))))
  ;
  ;(define (filter func lst)
  ;  (cond
  ;    ((null? lst) '())
  ;    ((func (car lst)) (cons
  ;                       (car lst)
  ;                       (filter func (cdr lst))))
  ;    (else (filter func (cdr lst)))))
  ;
  ;(define (reduce func lst)
  ;  (cond
  ;    ((null? lst) '())
  ;    ((null? (cdr lst)) (car lst))
  ;    (else (reduce func (cons
  ;                        (func (car lst) (car (cdr lst)))
  ;                        (cdr (cdr lst)))))))
  ;(open-graphics)
  ;
  ;(define viewport (open-viewport "practice" 2500 1400))
  ;
  ;(define (rgb r g b) (make-rgb r g b))
  ;(define (pixel x y color)
  ;  ((draw-pixel viewport) (make-posn x (- 1200 y)) color))
  ; (define (pixelsize x) '())
  ; (define (exitonclick) '())

  (define debug #t) ; DISABLE THIS IF YOU DON'T WANNA SEE LOGGING

  (eval (car (decode val)))  ; <----- not this
  ; (print (car (decode val))) ;DO THIS          IF YOU WANNA USE RACKET
  (exitonclick))

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