PLEASE KNOCK "SHAVE-AND-A-HAIRCUT-TWO-PLEASE" BEFORE ENTERING

	(1000)	PLEASE IGNORE .4
		PLEASE ABSTAIN FROM (1005)
	(1009)	DO STASH .1 + .2 + .5 + .6
		DO .4 <- #1
		DO (1004) NEXT
	(1004)	PLEASE FORGET #1
		DO .3 <- '^.1$.2'~'#0$#2801'
		DO .6 <- '?"'V"'V"'&.1$.2'~'#0$#2801'"$"'^"'@.1$
		     .2'~'#0$#2801'"$#2801'~'#0$#2801'"'~'#0$
		     #2801'"$"'^"'2@.1$.2'~'#0$#2801'"$#5602'
		     ~'#0$#2801'"'~'#0$#14005'"$#14005'~'#0$#2801'
		PLEASE DO .5 <- "?!6~#14406'$#7"~#7
		DO (1002) NEXT
		DO .4 <- #2
	(1005)	DO (1006) NEXT
	(1999)	DOUBLE OR SINGLE PRECISION OVERFLOW
	(1002)	DO (1001) NEXT
	(1006)	PLEASE FORGET #1
		DO .5 <- '?"!6~.6'~#6"$#7'~#7
		DO (1003) NEXT
		DO .1 <- .3
		DO .2 <- !6$#0'~'#400$#1'
		DO (1004) NEXT
	(1003)	DO (1001) NEXT
		DO REINSTATE (1005)
	(1007)	PLEASE RETRIEVE .1 + .2 + .5 + .6
		DO REMEMBER .4
		PLEASE RESUME #2
	(1001)	DO RESUME .5
	(1010)	DO STASH .1 + .2 + .4
		DO .4 <- .1
		DO .1 <- '?#16806$.2'~'#0$#2801'
		DO (1020) NEXT
		PLEASE DO .2 <- .4
		PLEASE DO (1009) NEXT
		DO RETRIEVE .1 + .2 + .4
		PLEASE RESUME #1
	(1020)	DO STASH .2 + .3
		DO .2 <- #1
		PLEASE DO (1021) NEXT
	(1021)	DO FORGET #1
		DO .3 <- '?"'V".1~.2"$#5'~#1"$#4'~#1
		PLEASE DO .1 <- '^.1$.2'~'#0$#2801'
		DO (1022) NEXT
		DO .2 <- !2$#0'~'#400$#1'
		DO (1021) NEXT
	(1023)	PLEASE RESUME .3
	(1022)	DO (1023) NEXT
		PLEASE RETRIEVE .2 + .3
		PLEASE RESUME #2
	(1030)	DO ABSTAIN FROM (1033)
		PLEASE ABSTAIN FROM (1032)
	(1039)	DO STASH :1 + .5
		DO (1530) NEXT
		DO .3 <- :1~#2801
		PLEASE DO .5 <- :1~'#2793$#2744'
		DO .5 <- '?"!5~.5'~#6"$#7'~#7
		DO (1031) NEXT
	(1032)	DO (1033) NEXT
		DO (1999) NEXT
	(1031)	DO (1001) NEXT
	(1033)	DO .4 <- .5
		DO REINSTATE (1032)
		PLEASE REINSTATE (1033)
		DO RETRIEVE :1 + .5
		PLEASE RESUME #2
	(1040)	PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
		DO .2 <- #0
		DO (1520) NEXT
		DO STASH :1
		PLEASE RETRIEVE .2
		DO .1 <- .2
		DO .2 <- #0
		PLEASE DO (1520) NEXT
		DO :2 <- :1
		DO RETRIEVE .1 + .2 + :1
		DO (1550) NEXT
		PLEASE DO .3 <- :3
		DO RETRIEVE :1 + :2 + :3
		DO RESUME #1
	(1050)	PLEASE STASH :2 + :3 + .5
		DO :2 <- .1
		PLEASE DO (1550) NEXT
		DO .5 <- :3~'#2793$#2744'
		DO .5 <- '?"!5~.5'~#6"$#7'~#7
		DO (1051) NEXT
		DO (1999) NEXT
	(1051)	DO (1001) NEXT
		DO .2 <- :3
		PLEASE RETRIEVE :2 + :3 + .5
		DO RESUME #2
	(1500)	PLEASE ABSTAIN FROM (1502)
		PLEASE ABSTAIN FROM (1506)
	(1509)	PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
		DO .1 <- :1~#2801
		PLEASE DO .2 <- :2~#2801
		DO (1009) NEXT
		DO .5 <- .3
		PLEASE DO .6 <- .4
		DO .1 <- :1~'#2793$#2744'
		DO .2 <- :2~'#2793$#2744'
		DO (1009) NEXT
		DO .1 <- .3
		PLEASE DO (1503) NEXT
		DO .6 <- .4
		DO .2 <- #1
		DO (1009) NEXT
		DO .1 <- .3
		DO (1501) NEXT
	(1504)	PLEASE RESUME .6
	(1503)	DO (1504) NEXT
	(1501)	DO .2 <- .5
		DO .5 <- '&.6$.4'
		DO (1505) NEXT
	(1506)	DO (1502) NEXT
		PLEASE DO (1999) NEXT
	(1505)	DO (1001) NEXT
	(1502)	DO :4 <- .5
		DO (1520) NEXT
		DO :3 <- :1
		PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
		DO REINSTATE (1502)
		DO REINSTATE (1506)
		PLEASE RESUME #3
	(1510)	DO STASH :1 + :2 + :4
		DO :1 <- "'?#16806$":2~'#2801$#0'"'~'#0$#2801'"$
		     "'?#16806$":2~'#0$#2801'"'~'#0$#2801'"
		DO :2 <- #1
		DO (1509) NEXT
		PLEASE RETRIEVE :1
		DO :2 <- :3
		PLEASE DO (1509) NEXT
		DO RETRIEVE :2 + :4
		PLEASE RESUME #1
	(1520)	PLEASE STASH .3 + .4
		DO .3 <- .1~#2451
		DO (1525) NEXT
		PLEASE DO .4 <- 'V.3$".2~#350"'~'#0$#2801'
		DO .3 <- .1~#350
		PLEASE DO (1526) NEXT
		DO :1 <- .4$"'V.3$".2~#2451"'~'#0$#2801'"
		PLEASE RETRIEVE .3 + .4
		DO RESUME #1
	(1525)	DO .3 <- '"!3$#0'~'#400$#1'"$#0'~'#400$#1'
		PLEASE RESUME #1
	(1526)	DO .3 <- '"!3$#0'~'#400$#1'"$#0'~'#57$#8'
		PLEASE RESUME #1
	(1530)	DO STASH :2 + :3 + :4 + .1 + .2 + .5
		DO :3 <- #0
		DO :4 <- .2
		DO (1535) NEXT
	(1535)	PLEASE FORGET #1
		DO .5 <- '?".1~#6"$#7'~#7
		DO (1531) NEXT
		DO :1 <- :4
		DO (1720) NEXT
		DO :1 <- :3
		DO (1500) NEXT
		PLEASE DO (1533) NEXT
	(1531)	PLEASE DO (1001) NEXT
	(1533)	DO FORGET #1
		DO .1 <- .1~#2800
		DO :4 <- ":4~'#0$#2801'"$"'":4~'#400$#0'"$#0'
		    ~'#400$#1'"
		PLEASE DO .5 <- '?"!1~.1'~#6"$#7'~#7
		DO (1532) NEXT
		DO (1535) NEXT
	(1532)	DO (1001) NEXT
		DO :1 <- :3
		PLEASE RETRIEVE :2 + :3 + :4 + .1 + .2 + .5
		DO RESUME #2
	(1540)	PLEASE ABSTAIN FROM (1541)
		DO ABSTAIN FROM (1542)
	(1549)	PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
		DO .1 <- :1~#2801
		PLEASE DO .2 <- :2~'#2793$#2744'
		DO .5 <- :1~'#2793$#2744'
		DO (1530) NEXT
		DO :3 <- :1
		DO .2 <- :2~#2801
		PLEASE DO (1530) NEXT
		DO :5 <- :1
		DO .1 <- .5
		DO (1530) NEXT
		DO :4 <- :1
		PLEASE DO :1 <- ":3~'#2793$#2744'"$":4
		     ~'#2793$#2744'"
		DO .5 <- ':1~:1'~#6
		DO .2 <- :2~'#2793$#2744'
		DO (1530) NEXT
		PLEASE DO .5 <- '"':1~:1'~#6"$.5'~#8
		DO .1 <- :3~#2801
		DO .2 <- #0
		DO (1520) NEXT
		PLEASE DO :2 <- :1
		PLEASE DO .1 <- :4~#2801
		DO (1520) NEXT
		DO (1509) NEXT
		DO .5 <- !5$"'^":4~#1"$#4'~#1"'~#351
		DO :1 <- :3
		DO :2 <- :5
		DO (1509) NEXT
		PLEASE DO .5 <- !5$"'^":4~#1"$#4'~#1"'~'#57$#1'
		DO .5 <- '?"!5~.5'~#1"$#4'~#1
		PLEASE RETRIEVE :4
	(1541)	DO :4 <- .5
		DO (1543) NEXT
	(1542)	DO (1544) NEXT
		PLEASE DO (1999) NEXT
	(1543)	DO (1001) NEXT
	(1544)	DO REINSTATE (1541)
		PLEASE REINSTATE (1542)
		PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
		DO RESUME #2
	(1550)	DO STASH :1 + :4 + :5 + :6 + .1 + .5
		DO :5 <- #0
		DO .5 <- '?"':2~:2'~#6"$#7'~#7
		PLEASE DO (1551) NEXT
		DO :4 <- #1
		PLEASE DO (1553) NEXT
	(1553)	DO FORGET #1
		DO .5 <- '?"':2~"#14406$#0"'"$#5'~#1
		DO (1552) NEXT
		DO :2 <- ":2~'#0$#2801'"$"'":2~'#400$#0'"$#0'
		     ~'#400$#1'"
		PLEASE DO :4 <- ":4~'#0$#2801'"$"'":4~'#400
		     $#0'"$#0'~'#400$#1'"
		DO (1553) NEXT
	(1552)	DO (1001) NEXT
		DO .1 <- #0
	(1556)	PLEASE FORGET #1
		DO :6 <- "'&":2~'#2801$#0'"$"'?#16806$":1
		     ~'#2801$#0'"'~'#0$#2801'"'~'#0$#2801'"$
		     "'&":2~'#0$#2801'"$"'?#16806$":1~'#0$
		     #2801'"'~'#0$#2801'"'~'#0$#2801'"
		DO :3 <- "'?":1~'#2801$#0'"$":2~'#2801$#0'"'
		     ~'#0$#2801'"$"'?":1~'#0$#2801'"$":2~'#0$
		     #2801'"'~'#0$#2801'"
		DO :6 <- "'&":6~'#2801$#0'"$":3~'#2801$#0'"'
		     ~'#0$#2801'"$"'&":6~'#0$#2801'"$":3~'#0$
		     #2801'"'~'#0$#2801'"
		DO :3 <- :3~'#16806$#16806'
		DO :6 <- "'?"'V":6~'#2801$#0'"$#11204'~'#0$
		     #2801'"$#11204'~'#0$#16806'"$"'?"'V":6
		     ~'#0$#2801'"$#11204'~'#0$#2801'"$#11204'
		     ~'#0$#16806'"
		DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#2801$#0'"$
		     #2401'~'#0$#2801'"$"'?:3~:3'~'#400$#0'"'
		     ~'#2401$#400'"$"'?:3~:3'~'#0$#2801'"'"~#1'$
		     #5"~#1
		PLEASE DO (1557) NEXT
		DO (1510) NEXT
		DO :1 <- :3
		DO .5 <- '?#0$"'V.1$#5'~#1"'~#1
		DO (1557) NEXT
		DO .1 <- '^.1$#2801'~'#0$#2801'
		DO (1556) NEXT
	(1557)	PLEASE DO (1001) NEXT
		PLEASE FORGET #1
		DO :5 <- "'V":4~'.1$#0'"$":5~'#2801$#0'"'
		     ~'#0$#2801'"$"'V":4~'#0$.1'"$":5~'#0$
		     #2801'"'~'#0$#2801'"
		DO .5 <- "?#2$':4~#1'"~#1
		DO (1551) NEXT
		DO :2 <- :2~'#2801$#2800'
		DO :4 <- :4~'#2801$#2800'
		DO .1 <- #0
		PLEASE DO (1556) NEXT
	(1551)	DO (1001) NEXT
		DO :3 <- :5
		PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5
		PLEASE RESUME #2
	(1720)	PLEASE STASH :1 + :3 + :4 + .1 + .5
		DO :2 <- #0
		DO .2 <- #0
		DO .5 <- '?".1~#6"$#7'~#7
		DO (1729) NEXT
		DO .5 <- .1~#1
		DO .2 <- :1~'#2801$#0'
		DO .1 <- :1~'#0$#2801'
		PLEASE DO (1726) NEXT
		DO :1 <- '"?#0$.2"~"#0$#2801"'$'"?#0$.1"~"#0$
		     #2801"'
		DO :2 <- '"?'"V.2$#2801"~"#0$#2801"'$#2801"
		     ~"#0$#2801"'$'"?'"V.1$#2801"~"#0$#2801"'$
		     #2801"~"#0$#2801"'
		DO (1728) NEXT
	(1726)	PLEASE DO (1725) NEXT
		DO :1 <- '"?#0$'"^.2$.2"~"#0$#2801"'"~"#0$
		     #2801"'$'"?#0$'"^.1$.1"~"#0$#2801"'"~"#0$
		     #2801"'
		DO .2 <- "^'"V'"2@.2$#11204"~"#0$#2801"'$
		     #5602"~"#0$#2801"'$'"2@.2$#2801"~"#0$
		     #2801"'"~"#0$#2801"
		DO .1 <- "^'"V'"2@.1$#11204"~"#0$#2801"'$
		     #5602"~"#0$#2801"'$'"2@.1$#2801"~"#0$
		     #2801"'"~"#0$#2801"
		DO :2 <- '"?.2$#8403"~"#0$#2801"'$'"?.1$#8403"
		     ~"#0$#2801"'
	(1728)	DO .2 <- :2~'#2401$#0'
		DO :2 <- ':2~"#0$#2801"'$'"':2~"#400$#0"'$#0"
		     ~"#400$#1"'
		DO (1509) NEXT
		DO :2 <- :3
		DO .2 <- '^.2$"'?":4~#1"$#1'~#1"'~#1
		DO (1721) NEXT
	(1725)	PLEASE DO (1724) NEXT
		DO :2 <- '"?'"V'"?'"3@.2$#14005"~"#0$#2801"'$
		     '"@.2$#0"~"#0$#2801"'"~"#0$#11204"'$#8403"
		     ~"#0$#2801"'$#8403"~"#0$#2801"'$
		     '"?'"V'"?'"3@.1$#14005"~"#0$#2801"'$'"@.1$
		     #0"~"#0$#2801"'"~"#0$#11204"'$#8403"~"#0$
		     #2801"'$#8403"~"#0$#2801"'
		DO .2 <- '^.2$.2'~'#0$#2801'
		DO .1 <- '^.1$.1'~'#0$#2801'
		DO :1 <- '"^.2$.2"~"#0$#2801"'$'"^.1$.1"~"#0$
		     #2801"'
		PLEASE FORGET #2
		DO (1728) NEXT
	(1724)	PLEASE DO (1723) NEXT
		DO :1 <- '"^'"^.2$.2"~"#0$#2801"'$.2"~"#0$
		     #2801"'$'"^'"^.1$.1"~"#0$#2801"'$.1"
		     ~"#0$#2801"'
		DO .2 <- "^'"V'"2@.2$#16806"~"#0$#2801"'$
		     #14005"~"#0$#2801"'$'"V'"4@.2$#16806"
		     ~"#0$#2801"'$#14005"~"#0$#2801"'"~"#0$
		     #2801"
		DO .1 <- "^'"V'"2@.1$#16806"~"#0$#2801"'$
		     #14005"~"#0$#2801"'$'"V'"4@.1$#16806"
		     ~"#0$#2801"'$#14005"~"#0$#2801"'"~"#0$
		     #2801"
		DO :2 <- '"?.2$#8403"~"#0$#2801"'$'"?.1$#8403"
		     ~"#0$#2801"'
		PLEASE FORGET #3
		DO (1728) NEXT
	(1723)	PLEASE DO (1722) NEXT
		DO :1 <- '"^.2$.2"~"#0$#2801"'$'"^.1$.1"~"#0$
		     #2801"'
		DO :2 <- '"?'"V'"3@.2$#16806"~"#0$#2801"'$
		     #14005"~"#0$#2801"'$#14005"~"#0$#2801"'$
		     '"?'"V'"3@.1$#16806"~"#0$#2801"'$#14005"
		     ~"#0$#2801"'$#14005"~"#0$#2801"'
		PLEASE FORGET #4
		DO (1728) NEXT
	(1729)	DO (1001) NEXT
		DO (1721) NEXT
	(1722)	PLEASE DO (1001) NEXT
		DO :2 <- :1
		DO .2 <- #0
		DO FORGET #3
	(1721)	PLEASE RETRIEVE :1 + :3 + :4 + .1 + .5
		PLEASE RESUME #3
	(1900)	DO STASH .2 + .5
		DO .1 <- #0
		DO .2 <- #1
		PLEASE DO (1901) NEXT
	(1901)	DO FORGET #1
		DO %50 (1905) NEXT
		DO %50 (1904) NEXT
		DO %50 (1901) NEXT
		PLEASE DO (1903) NEXT
	(1905)	DO FORGET #1
		DO .1 <- '^.1$".2~#8403"'~'#0$#2801'
		PLEASE DO %50 .1 <- '^.1$".2~#5602"'~'#0$#2801'
		DO (1906) NEXT
	(1904)	DO .1 <- '^.1$.2'~'#0$#2801'
	(1906)	DO %50 .1 <- '^.1$.2'~'#0$#2801'
	(1903)	PLEASE FORGET #1
		DO .2 <- !2$#0'~'#400$#1'
		PLEASE DO .5 <- '^".2~.2"$#1'~#1
		DO (1902) NEXT
		DO (1901) NEXT
	(1902)	DO (1001) NEXT
		DO RETRIEVE .2 + .5
		PLEASE RESUME #2
	(1910)	PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
		DO .3 <- #16795
		DO :1 <- #6
		DO (1911) NEXT
		PLEASE NOTE THAT YOU CAN'T GET SENSE FROM INTERCAL
	(1912)	DO (1001) NEXT
	(1911)	DO FORGET #1
		PLEASE DO (1900) NEXT
		DO :2 <- .1
		DO (1500) NEXT
		PLEASE DO :1 <- :3
		DO .1 <- .3
		DO (1020) NEXT
		PLEASE DO .3 <- .1
		DO .5 <- '?"!3~.3'~#6"$#5'~#1
		DO (1912) NEXT
		DO .1 <- #12
		PLEASE DO (1050) NEXT
		DO RETRIEVE .1
		DO (1530) NEXT
		DO :2 <- #8403
		DO (1500) NEXT
		PLEASE DO .2 <- :3~'#2793$#2744'
		PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
		DO RESUME #1