--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/c-intercal/pit/lib/syslib.5i	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,355 @@
+		PLEASE KNOCK "SHAVE-AND-A-HAIRCUT" 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$#3906'
+		DO .6 <- '?"'V"'&.1$.2'~'#0$#3906'"$"'^"'@.1$
+		      .2'~'#0$#3906'"$#3906'~'#0$#11718'"'
+		      ~'#0$#3906'"$#11718'~'#0$#3906'
+		PLEASE DO .5 <- "?!6~#12500'$#5"~#5
+		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'~#4"$#5'~#5
+		DO (1003) NEXT
+		DO .1 <- .3
+		DO .2 <- !6$#0'~'#781$#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 <- '?#15624$.2'~'#0$#3906'
+		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"$#3'~#1"$#2'~#1
+		PLEASE DO .1 <- '^.1$.2'~'#0$#3906'
+		DO (1022) NEXT
+		DO .2 <- !2$#0'~'#781$#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~#3906
+		PLEASE DO .5 <- :1~'#3875$#3875'
+		DO .5 <- '?"!5~.5'~#4"$#5'~#5
+		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~'#3875$#3875'
+		DO .5 <- '?"!5~.5'~#4"$#5'~#5
+		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~#3906
+		PLEASE DO .2 <- :2~#3906
+		DO (1009) NEXT
+		DO .5 <- .3
+		PLEASE DO .6 <- .4
+		DO .1 <- :1~'#3875$#3875'
+		DO .2 <- :2~'#3875$#3875'
+		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 <- "'?#15624$":2~'#3906$#0'"'~'#0$#3906'"$
+		     "'?#15624$":2~'#0$#3906'"'~'#0$#3906'"
+		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~#3255
+		DO (1525) NEXT
+		PLEASE DO .4 <- 'V.3$".2~#3255"'~'#0$#3906'
+		DO .3 <- .1~#651
+		PLEASE DO (1525) NEXT
+		DO :1 <- .4$"'V.3$".2~#651"'~'#0$#3906'"
+		PLEASE RETRIEVE .3 + .4
+		DO RESUME #1
+	(1525)	DO .3 <- '"!3$#0'~'#781$#1'"$#0'~'#156$#6'
+		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~#4"$#5'~#5
+		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~#3905
+		DO :4 <- ":4~'#0$#3906'"$"'":4~'#781$#0'"$#0'
+		    ~'#781$#1'"
+		PLEASE DO .5 <- '?"!1~.1'~#4"$#5'~#5
+		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~#3906
+		PLEASE DO .2 <- :2~'#3875$#3875'
+		DO .5 <- :1~'#3875$#3875'
+		DO (1530) NEXT
+		DO :3 <- :1
+		DO .2 <- :2~#3906
+		PLEASE DO (1530) NEXT
+		DO :5 <- :1
+		DO .1 <- .5
+		DO (1530) NEXT
+		DO :4 <- :1
+		PLEASE DO :1 <- ":3~'#3875$#3875'"$":4
+		     ~'#3875$#3875'"
+		DO .5 <- ':1~:1'~#4
+		DO .2 <- :2~'#3875$#3875'
+		DO (1530) NEXT
+		PLEASE DO .5 <- '"':1~:1'~#4"$.5'~#6
+		DO .1 <- :3~#3906
+		DO .2 <- #0
+		DO (1520) NEXT
+		PLEASE DO :2 <- :1
+		PLEASE DO .1 <- :4~#3906
+		DO (1520) NEXT
+		DO (1509) NEXT
+		DO .5 <- !5$"'^":4~#1"$#2'~#1"'~#131
+		DO :1 <- :3
+		DO :2 <- :5
+		DO (1509) NEXT
+		PLEASE DO .5 <- !5$"'^":4~#1"$#2'~#1"'~#3256
+		DO .5 <- '?"!5~.5'~#1"$#2'~#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'~#4"$#5'~#5
+		PLEASE DO (1551) NEXT
+		DO :4 <- #1
+		PLEASE DO (1553) NEXT
+	(1553)	DO FORGET #1
+		DO .5 <- '?"':2~"#12500$#0"'"$#3'~#1
+		DO (1552) NEXT
+		DO :2 <- ":2~'#0$#3906'"$"'":2~'#781$#0'"$#0'
+		     ~'#781$#1'"
+		PLEASE DO :4 <- ":4~'#0$#3906'"$"'":4~'#781
+		     $#0'"$#0'~'#781$#1'"
+		DO (1553) NEXT
+	(1552)	DO (1001) NEXT
+		DO .1 <- #0
+	(1556)	PLEASE FORGET #1
+		DO :6 <- "'&":2~'#3906$#0'"$"'?#15624$":1
+		     ~'#3906$#0'"'~'#0$#3906'"'~'#0$#3906'"$
+		     "'&":2~'#0$#3906'"$"'?#15624$":1~'#0$
+		     #3906'"'~'#0$#3906'"'~'#0$#3906'"
+		DO :6 <- "'?"'V":6~'#3906$#0'"$#7812'~'#0$
+		     #3906'"$#7812'~'#0$#15624'"$"'?"'V":6
+		     ~'#0$#3906'"$#7812'~'#0$#3906'"$#7812'
+		     ~'#0$#15624'"
+		DO :3 <- "'?":1~'#3906$#0'"$":2~'#3906$#0'"'
+		     ~'#0$#15624'"$"'?":1~'#0$#3906'"$":2~'#0$
+		     #3906'"'~'#0$#15624'"
+		DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#3906$#0'"$
+		     #3125'~'#0$#3906'"$"'?:3~:3'~'#781$#0'"'
+		     ~'#3125$#781'"$"'?:3~:3'~'#0$#3906'"'"~#1'$
+		     #3"~#1
+		PLEASE DO (1557) NEXT
+		DO (1510) NEXT
+		PLEASE DO :1 <- :3
+		DO .5 <- '?#0$"'V.1$#3'~#1"'~#1
+		DO (1557) NEXT
+		DO .1 <- '^.1$#3906'~'#0$#3906'
+		DO (1556) NEXT
+	(1557)	PLEASE DO (1001) NEXT
+		PLEASE FORGET #1
+		DO :5 <- "'V":4~'.1$#0'"$":5~'#3906$#0'"'
+		     ~'#0$#3906'"$"'V":4~'#0$.1'"$":5~'#0$
+		     #3906'"'~'#0$#3906'"
+		DO .5 <- "?#2$':4~#1'"~#1
+		DO (1551) NEXT
+		DO :2 <- :2~'#3906$#3905'
+		DO :4 <- :4~'#3906$#3905'
+		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~#4"$#5'~#5
+		DO (1729) NEXT
+		DO .5 <- .1~#1
+		DO .2 <- :1~'#3906$#0'
+		DO .1 <- :1~'#0$#3906'
+		PLEASE DO (1724) NEXT
+		DO :1 <- '"?#0$.2"~"#0$#3906"'$'"?#0$.1"~"#0$
+		     #3906"'
+		DO :2 <- '"?'"V.2$#3906"~"#0$#3906"'$
+		     #3906"~"#0$#3906"'$'"?'"V.1$#3906"
+		     ~"#0$#3906"'$#3906"~"#0$#3906"'
+		DO (1728) NEXT
+	(1724)	PLEASE DO (1723) NEXT
+		DO :1 <- '"?#0$'"^.2$.2"~"#0$#3906"'"~"#0$#3906"'$
+		     '"?#0$'"^.1$.1"~"#0$#3906"'"~"#0$#3906"'
+		DO :2 <- '"?'"V'"@.2$#11718"~"#0$#3906"'$#7812"
+		     ~"#0$#3906"'$#7812"~"#0$#3906"'$'"?'"V'"@.1$
+		     #11718"~"#0$#3906"'$#7812"~"#0$#3906"'$#7812"
+		     ~"#0$#3906"'
+	(1728)	DO .2 <- :2~'#3125$#0'
+		DO :2 <- ':2~"#0$#3906"'$'"':2~"#781$#0"'$#0"
+		     ~"#781$#1"'
+		DO (1509) NEXT
+		DO :2 <- :3
+		DO .2 <- '^.2$"'?":4~#1"$#1'~#1"'~#1
+		DO (1721) NEXT
+	(1723)	PLEASE DO (1722) NEXT
+		DO :1 <- '"^.2$.2"~"#0$#3906"'$'"^.1$.1"~"#0$
+		     #3906"'
+		DO :2 <- '"?'"V'"2@.2$#15624"~"#0$#3906"'$
+		     #11718"~"#0$#3906"'$#11718"~"#0$#3906"'$
+		     '"?'"V'"2@.1$#15624"~"#0$#3906"'$#11718"
+		     ~"#0$#3906"'$#11718"~"#0$#3906"'
+		PLEASE FORGET #2
+		DO (1728) NEXT
+	(1729)	DO (1001) NEXT
+		DO (1721) NEXT
+	(1722)	PLEASE DO (1001) NEXT
+		DO :2 <- :1
+		DO .2 <- #0
+		DO FORGET #1
+	(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 %20 (1903) NEXT
+		DO .1 <- 'V.1$.2'~'#0$#3906'
+		DO %50 .1 <- '^.1$".2~#7812"'~'#0$#3906'
+		DO %50 .1 <- '^.1$.2'~'#0$#3906'
+		PLEASE DO (1903) NEXT
+	(1903)	PLEASE FORGET #2
+		DO .2 <- !2$#0'~'#781$#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 <- #15613
+		DO :1 <- #6
+		DO (1911) NEXT
+		PLEASE NOTE THAT YOU CAN'T GET SOMETHING FROM NOTHING
+	(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'~#4"$#3'~#1
+		DO (1912) NEXT
+		DO .1 <- #12
+		PLEASE DO (1050) NEXT
+		DO RETRIEVE .1
+		DO (1530) NEXT
+		DO :2 <- #7812
+		DO (1500) NEXT
+		PLEASE DO .2 <- :3~'#3875$#3875'
+		PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
+		DO RESUME #1