Paul 2022-12-15

10 files changed, 123 insertions, 1 deletions

diff --git a/printed-programs/84.folk b/printed-programs/84.folk
new file mode 100644
index 00000000..cfab2786
--- /dev/null
+++ b/printed-programs/84.folk
@@ -0,0 +1,4 @@
+Wish $this has neighbors
+When $this has neighbor /n/ {
+	Wish $n is labelled "neighbor"
+}
diff --git a/printed-programs/84.pdf b/printed-programs/84.pdf
new file mode 100644
index 00000000..bfa7fe14
--- /dev/null
+++ b/printed-programs/84.pdf
diff --git a/printed-programs/84.ps b/printed-programs/84.ps
new file mode 100644
index 00000000..a064dc22
--- /dev/null
+++ b/printed-programs/84.ps
@@ -0,0 +1,40 @@
+
+        %!PS
+        << /PageSize [612 792] >> setpagedevice
+
+        /Courier findfont
+        12 scalefont
+        setfont
+        newpath
+        36 738.0 moveto (Wish $this has neighbors) show
+36 720.0 moveto (When $this has neighbor /n/ {) show
+36 702.0 moveto (	Wish $n is labelled "neighbor") show
+36 684.0 moveto (}) show
+
+        gsave
+        426 606 translate
+        150 150 scale
+        gsave
+0 1 translate
+0.100000 -0.100000 scale
+0 setgray newpath 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto closepath fill 1 setgray newpath 1 0 moveto 2 0 lineto 2 1 lineto 1 1 lineto closepath fill 0 setgray newpath 2 0 moveto 3 0 lineto 3 1 lineto 2 1 lineto closepath fill 0 setgray newpath 3 0 moveto 4 0 lineto 4 1 lineto 3 1 lineto closepath fill 0 setgray newpath 4 0 moveto 5 0 lineto 5 1 lineto 4 1 lineto closepath fill 0 setgray newpath 5 0 moveto 6 0 lineto 6 1 lineto 5 1 lineto closepath fill 0 setgray newpath 6 0 moveto 7 0 lineto 7 1 lineto 6 1 lineto closepath fill 0 setgray newpath 7 0 moveto 8 0 lineto 8 1 lineto 7 1 lineto closepath fill 0 setgray newpath 8 0 moveto 9 0 lineto 9 1 lineto 8 1 lineto closepath fill 1 setgray newpath 9 0 moveto 10 0 lineto 10 1 lineto 9 1 lineto closepath fill 
+1 setgray newpath 0 1 moveto 1 1 lineto 1 2 lineto 0 2 lineto closepath fill 0 setgray newpath 1 1 moveto 2 1 lineto 2 2 lineto 1 2 lineto closepath fill 0 setgray newpath 2 1 moveto 3 1 lineto 3 2 lineto 2 2 lineto closepath fill 0 setgray newpath 3 1 moveto 4 1 lineto 4 2 lineto 3 2 lineto closepath fill 0 setgray newpath 4 1 moveto 5 1 lineto 5 2 lineto 4 2 lineto closepath fill 0 setgray newpath 5 1 moveto 6 1 lineto 6 2 lineto 5 2 lineto closepath fill 0 setgray newpath 6 1 moveto 7 1 lineto 7 2 lineto 6 2 lineto closepath fill 0 setgray newpath 7 1 moveto 8 1 lineto 8 2 lineto 7 2 lineto closepath fill 0 setgray newpath 8 1 moveto 9 1 lineto 9 2 lineto 8 2 lineto closepath fill 1 setgray newpath 9 1 moveto 10 1 lineto 10 2 lineto 9 2 lineto closepath fill 
+0 setgray newpath 0 2 moveto 1 2 lineto 1 3 lineto 0 3 lineto closepath fill 0 setgray newpath 1 2 moveto 2 2 lineto 2 3 lineto 1 3 lineto closepath fill 1 setgray newpath 2 2 moveto 3 2 lineto 3 3 lineto 2 3 lineto closepath fill 1 setgray newpath 3 2 moveto 4 2 lineto 4 3 lineto 3 3 lineto closepath fill 1 setgray newpath 4 2 moveto 5 2 lineto 5 3 lineto 4 3 lineto closepath fill 1 setgray newpath 5 2 moveto 6 2 lineto 6 3 lineto 5 3 lineto closepath fill 1 setgray newpath 6 2 moveto 7 2 lineto 7 3 lineto 6 3 lineto closepath fill 1 setgray newpath 7 2 moveto 8 2 lineto 8 3 lineto 7 3 lineto closepath fill 0 setgray newpath 8 2 moveto 9 2 lineto 9 3 lineto 8 3 lineto closepath fill 0 setgray newpath 9 2 moveto 10 2 lineto 10 3 lineto 9 3 lineto closepath fill 
+0 setgray newpath 0 3 moveto 1 3 lineto 1 4 lineto 0 4 lineto closepath fill 0 setgray newpath 1 3 moveto 2 3 lineto 2 4 lineto 1 4 lineto closepath fill 1 setgray newpath 2 3 moveto 3 3 lineto 3 4 lineto 2 4 lineto closepath fill 1 setgray newpath 3 3 moveto 4 3 lineto 4 4 lineto 3 4 lineto closepath fill 1 setgray newpath 4 3 moveto 5 3 lineto 5 4 lineto 4 4 lineto closepath fill 0 setgray newpath 5 3 moveto 6 3 lineto 6 4 lineto 5 4 lineto closepath fill 1 setgray newpath 6 3 moveto 7 3 lineto 7 4 lineto 6 4 lineto closepath fill 1 setgray newpath 7 3 moveto 8 3 lineto 8 4 lineto 7 4 lineto closepath fill 0 setgray newpath 8 3 moveto 9 3 lineto 9 4 lineto 8 4 lineto closepath fill 1 setgray newpath 9 3 moveto 10 3 lineto 10 4 lineto 9 4 lineto closepath fill 
+0 setgray newpath 0 4 moveto 1 4 lineto 1 5 lineto 0 5 lineto closepath fill 0 setgray newpath 1 4 moveto 2 4 lineto 2 5 lineto 1 5 lineto closepath fill 1 setgray newpath 2 4 moveto 3 4 lineto 3 5 lineto 2 5 lineto closepath fill 0 setgray newpath 3 4 moveto 4 4 lineto 4 5 lineto 3 5 lineto closepath fill 0 setgray newpath 4 4 moveto 5 4 lineto 5 5 lineto 4 5 lineto closepath fill 0 setgray newpath 5 4 moveto 6 4 lineto 6 5 lineto 5 5 lineto closepath fill 1 setgray newpath 6 4 moveto 7 4 lineto 7 5 lineto 6 5 lineto closepath fill 1 setgray newpath 7 4 moveto 8 4 lineto 8 5 lineto 7 5 lineto closepath fill 0 setgray newpath 8 4 moveto 9 4 lineto 9 5 lineto 8 5 lineto closepath fill 0 setgray newpath 9 4 moveto 10 4 lineto 10 5 lineto 9 5 lineto closepath fill 
+0 setgray newpath 0 5 moveto 1 5 lineto 1 6 lineto 0 6 lineto closepath fill 0 setgray newpath 1 5 moveto 2 5 lineto 2 6 lineto 1 6 lineto closepath fill 1 setgray newpath 2 5 moveto 3 5 lineto 3 6 lineto 2 6 lineto closepath fill 0 setgray newpath 3 5 moveto 4 5 lineto 4 6 lineto 3 6 lineto closepath fill 0 setgray newpath 4 5 moveto 5 5 lineto 5 6 lineto 4 6 lineto closepath fill 1 setgray newpath 5 5 moveto 6 5 lineto 6 6 lineto 5 6 lineto closepath fill 1 setgray newpath 6 5 moveto 7 5 lineto 7 6 lineto 6 6 lineto closepath fill 1 setgray newpath 7 5 moveto 8 5 lineto 8 6 lineto 7 6 lineto closepath fill 0 setgray newpath 8 5 moveto 9 5 lineto 9 6 lineto 8 6 lineto closepath fill 1 setgray newpath 9 5 moveto 10 5 lineto 10 6 lineto 9 6 lineto closepath fill 
+0 setgray newpath 0 6 moveto 1 6 lineto 1 7 lineto 0 7 lineto closepath fill 0 setgray newpath 1 6 moveto 2 6 lineto 2 7 lineto 1 7 lineto closepath fill 1 setgray newpath 2 6 moveto 3 6 lineto 3 7 lineto 2 7 lineto closepath fill 0 setgray newpath 3 6 moveto 4 6 lineto 4 7 lineto 3 7 lineto closepath fill 1 setgray newpath 4 6 moveto 5 6 lineto 5 7 lineto 4 7 lineto closepath fill 0 setgray newpath 5 6 moveto 6 6 lineto 6 7 lineto 5 7 lineto closepath fill 1 setgray newpath 6 6 moveto 7 6 lineto 7 7 lineto 6 7 lineto closepath fill 1 setgray newpath 7 6 moveto 8 6 lineto 8 7 lineto 7 7 lineto closepath fill 0 setgray newpath 8 6 moveto 9 6 lineto 9 7 lineto 8 7 lineto closepath fill 1 setgray newpath 9 6 moveto 10 6 lineto 10 7 lineto 9 7 lineto closepath fill 
+0 setgray newpath 0 7 moveto 1 7 lineto 1 8 lineto 0 8 lineto closepath fill 0 setgray newpath 1 7 moveto 2 7 lineto 2 8 lineto 1 8 lineto closepath fill 1 setgray newpath 2 7 moveto 3 7 lineto 3 8 lineto 2 8 lineto closepath fill 1 setgray newpath 3 7 moveto 4 7 lineto 4 8 lineto 3 8 lineto closepath fill 1 setgray newpath 4 7 moveto 5 7 lineto 5 8 lineto 4 8 lineto closepath fill 1 setgray newpath 5 7 moveto 6 7 lineto 6 8 lineto 5 8 lineto closepath fill 1 setgray newpath 6 7 moveto 7 7 lineto 7 8 lineto 6 8 lineto closepath fill 1 setgray newpath 7 7 moveto 8 7 lineto 8 8 lineto 7 8 lineto closepath fill 0 setgray newpath 8 7 moveto 9 7 lineto 9 8 lineto 8 8 lineto closepath fill 1 setgray newpath 9 7 moveto 10 7 lineto 10 8 lineto 9 8 lineto closepath fill 
+0 setgray newpath 0 8 moveto 1 8 lineto 1 9 lineto 0 9 lineto closepath fill 0 setgray newpath 1 8 moveto 2 8 lineto 2 9 lineto 1 9 lineto closepath fill 0 setgray newpath 2 8 moveto 3 8 lineto 3 9 lineto 2 9 lineto closepath fill 0 setgray newpath 3 8 moveto 4 8 lineto 4 9 lineto 3 9 lineto closepath fill 0 setgray newpath 4 8 moveto 5 8 lineto 5 9 lineto 4 9 lineto closepath fill 0 setgray newpath 5 8 moveto 6 8 lineto 6 9 lineto 5 9 lineto closepath fill 0 setgray newpath 6 8 moveto 7 8 lineto 7 9 lineto 6 9 lineto closepath fill 0 setgray newpath 7 8 moveto 8 8 lineto 8 9 lineto 7 9 lineto closepath fill 0 setgray newpath 8 8 moveto 9 8 lineto 9 9 lineto 8 9 lineto closepath fill 0 setgray newpath 9 8 moveto 10 8 lineto 10 9 lineto 9 9 lineto closepath fill 
+1 setgray newpath 0 9 moveto 1 9 lineto 1 10 lineto 0 10 lineto closepath fill 0 setgray newpath 1 9 moveto 2 9 lineto 2 10 lineto 1 10 lineto closepath fill 1 setgray newpath 2 9 moveto 3 9 lineto 3 10 lineto 2 10 lineto closepath fill 0 setgray newpath 3 9 moveto 4 9 lineto 4 10 lineto 3 10 lineto closepath fill 0 setgray newpath 4 9 moveto 5 9 lineto 5 10 lineto 4 10 lineto closepath fill 0 setgray newpath 5 9 moveto 6 9 lineto 6 10 lineto 5 10 lineto closepath fill 0 setgray newpath 6 9 moveto 7 9 lineto 7 10 lineto 6 10 lineto closepath fill 1 setgray newpath 7 9 moveto 8 9 lineto 8 10 lineto 7 10 lineto closepath fill 1 setgray newpath 8 9 moveto 9 9 lineto 9 10 lineto 8 10 lineto closepath fill 0 setgray newpath 9 9 moveto 10 9 lineto 10 10 lineto 9 10 lineto closepath fill 
+grestore
+
+        grestore
+
+        /Helvetica-Narrow findfont
+        10 scalefont
+        setfont
+        newpath
+        426 590 moveto
+        (84 (Thu, 15 Dec 2022, 06:44:03 pm)) show
+    
diff --git a/printed-programs/85.folk b/printed-programs/85.folk
new file mode 100644
index 00000000..426b537e
--- /dev/null
+++ b/printed-programs/85.folk
@@ -0,0 +1,2 @@
+Wish $this is outlined red
+Wish $this is labelled "New york"
diff --git a/printed-programs/85.pdf b/printed-programs/85.pdf
new file mode 100644
index 00000000..af568dfc
--- /dev/null
+++ b/printed-programs/85.pdf
diff --git a/printed-programs/85.ps b/printed-programs/85.ps
new file mode 100644
index 00000000..5afef87c
--- /dev/null
+++ b/printed-programs/85.ps
@@ -0,0 +1,38 @@
+
+        %!PS
+        << /PageSize [612 792] >> setpagedevice
+
+        /Courier findfont
+        12 scalefont
+        setfont
+        newpath
+        36 738.0 moveto (Wish $this is outlined red) show
+36 720.0 moveto (Wish $this is labelled "New york") show
+
+        gsave
+        426 606 translate
+        150 150 scale
+        gsave
+0 1 translate
+0.100000 -0.100000 scale
+0 setgray newpath 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto closepath fill 1 setgray newpath 1 0 moveto 2 0 lineto 2 1 lineto 1 1 lineto closepath fill 0 setgray newpath 2 0 moveto 3 0 lineto 3 1 lineto 2 1 lineto closepath fill 0 setgray newpath 3 0 moveto 4 0 lineto 4 1 lineto 3 1 lineto closepath fill 0 setgray newpath 4 0 moveto 5 0 lineto 5 1 lineto 4 1 lineto closepath fill 0 setgray newpath 5 0 moveto 6 0 lineto 6 1 lineto 5 1 lineto closepath fill 0 setgray newpath 6 0 moveto 7 0 lineto 7 1 lineto 6 1 lineto closepath fill 0 setgray newpath 7 0 moveto 8 0 lineto 8 1 lineto 7 1 lineto closepath fill 0 setgray newpath 8 0 moveto 9 0 lineto 9 1 lineto 8 1 lineto closepath fill 1 setgray newpath 9 0 moveto 10 0 lineto 10 1 lineto 9 1 lineto closepath fill 
+1 setgray newpath 0 1 moveto 1 1 lineto 1 2 lineto 0 2 lineto closepath fill 0 setgray newpath 1 1 moveto 2 1 lineto 2 2 lineto 1 2 lineto closepath fill 0 setgray newpath 2 1 moveto 3 1 lineto 3 2 lineto 2 2 lineto closepath fill 0 setgray newpath 3 1 moveto 4 1 lineto 4 2 lineto 3 2 lineto closepath fill 0 setgray newpath 4 1 moveto 5 1 lineto 5 2 lineto 4 2 lineto closepath fill 0 setgray newpath 5 1 moveto 6 1 lineto 6 2 lineto 5 2 lineto closepath fill 0 setgray newpath 6 1 moveto 7 1 lineto 7 2 lineto 6 2 lineto closepath fill 0 setgray newpath 7 1 moveto 8 1 lineto 8 2 lineto 7 2 lineto closepath fill 0 setgray newpath 8 1 moveto 9 1 lineto 9 2 lineto 8 2 lineto closepath fill 1 setgray newpath 9 1 moveto 10 1 lineto 10 2 lineto 9 2 lineto closepath fill 
+0 setgray newpath 0 2 moveto 1 2 lineto 1 3 lineto 0 3 lineto closepath fill 0 setgray newpath 1 2 moveto 2 2 lineto 2 3 lineto 1 3 lineto closepath fill 1 setgray newpath 2 2 moveto 3 2 lineto 3 3 lineto 2 3 lineto closepath fill 1 setgray newpath 3 2 moveto 4 2 lineto 4 3 lineto 3 3 lineto closepath fill 1 setgray newpath 4 2 moveto 5 2 lineto 5 3 lineto 4 3 lineto closepath fill 1 setgray newpath 5 2 moveto 6 2 lineto 6 3 lineto 5 3 lineto closepath fill 1 setgray newpath 6 2 moveto 7 2 lineto 7 3 lineto 6 3 lineto closepath fill 1 setgray newpath 7 2 moveto 8 2 lineto 8 3 lineto 7 3 lineto closepath fill 0 setgray newpath 8 2 moveto 9 2 lineto 9 3 lineto 8 3 lineto closepath fill 0 setgray newpath 9 2 moveto 10 2 lineto 10 3 lineto 9 3 lineto closepath fill 
+1 setgray newpath 0 3 moveto 1 3 lineto 1 4 lineto 0 4 lineto closepath fill 0 setgray newpath 1 3 moveto 2 3 lineto 2 4 lineto 1 4 lineto closepath fill 1 setgray newpath 2 3 moveto 3 3 lineto 3 4 lineto 2 4 lineto closepath fill 1 setgray newpath 3 3 moveto 4 3 lineto 4 4 lineto 3 4 lineto closepath fill 1 setgray newpath 4 3 moveto 5 3 lineto 5 4 lineto 4 4 lineto closepath fill 0 setgray newpath 5 3 moveto 6 3 lineto 6 4 lineto 5 4 lineto closepath fill 1 setgray newpath 6 3 moveto 7 3 lineto 7 4 lineto 6 4 lineto closepath fill 1 setgray newpath 7 3 moveto 8 3 lineto 8 4 lineto 7 4 lineto closepath fill 0 setgray newpath 8 3 moveto 9 3 lineto 9 4 lineto 8 4 lineto closepath fill 1 setgray newpath 9 3 moveto 10 3 lineto 10 4 lineto 9 4 lineto closepath fill 
+1 setgray newpath 0 4 moveto 1 4 lineto 1 5 lineto 0 5 lineto closepath fill 0 setgray newpath 1 4 moveto 2 4 lineto 2 5 lineto 1 5 lineto closepath fill 1 setgray newpath 2 4 moveto 3 4 lineto 3 5 lineto 2 5 lineto closepath fill 0 setgray newpath 3 4 moveto 4 4 lineto 4 5 lineto 3 5 lineto closepath fill 0 setgray newpath 4 4 moveto 5 4 lineto 5 5 lineto 4 5 lineto closepath fill 1 setgray newpath 5 4 moveto 6 4 lineto 6 5 lineto 5 5 lineto closepath fill 1 setgray newpath 6 4 moveto 7 4 lineto 7 5 lineto 6 5 lineto closepath fill 1 setgray newpath 7 4 moveto 8 4 lineto 8 5 lineto 7 5 lineto closepath fill 0 setgray newpath 8 4 moveto 9 4 lineto 9 5 lineto 8 5 lineto closepath fill 0 setgray newpath 9 4 moveto 10 4 lineto 10 5 lineto 9 5 lineto closepath fill 
+1 setgray newpath 0 5 moveto 1 5 lineto 1 6 lineto 0 6 lineto closepath fill 0 setgray newpath 1 5 moveto 2 5 lineto 2 6 lineto 1 6 lineto closepath fill 1 setgray newpath 2 5 moveto 3 5 lineto 3 6 lineto 2 6 lineto closepath fill 1 setgray newpath 3 5 moveto 4 5 lineto 4 6 lineto 3 6 lineto closepath fill 1 setgray newpath 4 5 moveto 5 5 lineto 5 6 lineto 4 6 lineto closepath fill 1 setgray newpath 5 5 moveto 6 5 lineto 6 6 lineto 5 6 lineto closepath fill 0 setgray newpath 6 5 moveto 7 5 lineto 7 6 lineto 6 6 lineto closepath fill 1 setgray newpath 7 5 moveto 8 5 lineto 8 6 lineto 7 6 lineto closepath fill 0 setgray newpath 8 5 moveto 9 5 lineto 9 6 lineto 8 6 lineto closepath fill 1 setgray newpath 9 5 moveto 10 5 lineto 10 6 lineto 9 6 lineto closepath fill 
+0 setgray newpath 0 6 moveto 1 6 lineto 1 7 lineto 0 7 lineto closepath fill 0 setgray newpath 1 6 moveto 2 6 lineto 2 7 lineto 1 7 lineto closepath fill 1 setgray newpath 2 6 moveto 3 6 lineto 3 7 lineto 2 7 lineto closepath fill 0 setgray newpath 3 6 moveto 4 6 lineto 4 7 lineto 3 7 lineto closepath fill 1 setgray newpath 4 6 moveto 5 6 lineto 5 7 lineto 4 7 lineto closepath fill 0 setgray newpath 5 6 moveto 6 6 lineto 6 7 lineto 5 7 lineto closepath fill 0 setgray newpath 6 6 moveto 7 6 lineto 7 7 lineto 6 7 lineto closepath fill 1 setgray newpath 7 6 moveto 8 6 lineto 8 7 lineto 7 7 lineto closepath fill 0 setgray newpath 8 6 moveto 9 6 lineto 9 7 lineto 8 7 lineto closepath fill 1 setgray newpath 9 6 moveto 10 6 lineto 10 7 lineto 9 7 lineto closepath fill 
+1 setgray newpath 0 7 moveto 1 7 lineto 1 8 lineto 0 8 lineto closepath fill 0 setgray newpath 1 7 moveto 2 7 lineto 2 8 lineto 1 8 lineto closepath fill 1 setgray newpath 2 7 moveto 3 7 lineto 3 8 lineto 2 8 lineto closepath fill 1 setgray newpath 3 7 moveto 4 7 lineto 4 8 lineto 3 8 lineto closepath fill 1 setgray newpath 4 7 moveto 5 7 lineto 5 8 lineto 4 8 lineto closepath fill 1 setgray newpath 5 7 moveto 6 7 lineto 6 8 lineto 5 8 lineto closepath fill 1 setgray newpath 6 7 moveto 7 7 lineto 7 8 lineto 6 8 lineto closepath fill 1 setgray newpath 7 7 moveto 8 7 lineto 8 8 lineto 7 8 lineto closepath fill 0 setgray newpath 8 7 moveto 9 7 lineto 9 8 lineto 8 8 lineto closepath fill 1 setgray newpath 9 7 moveto 10 7 lineto 10 8 lineto 9 8 lineto closepath fill 
+0 setgray newpath 0 8 moveto 1 8 lineto 1 9 lineto 0 9 lineto closepath fill 0 setgray newpath 1 8 moveto 2 8 lineto 2 9 lineto 1 9 lineto closepath fill 0 setgray newpath 2 8 moveto 3 8 lineto 3 9 lineto 2 9 lineto closepath fill 0 setgray newpath 3 8 moveto 4 8 lineto 4 9 lineto 3 9 lineto closepath fill 0 setgray newpath 4 8 moveto 5 8 lineto 5 9 lineto 4 9 lineto closepath fill 0 setgray newpath 5 8 moveto 6 8 lineto 6 9 lineto 5 9 lineto closepath fill 0 setgray newpath 6 8 moveto 7 8 lineto 7 9 lineto 6 9 lineto closepath fill 0 setgray newpath 7 8 moveto 8 8 lineto 8 9 lineto 7 9 lineto closepath fill 0 setgray newpath 8 8 moveto 9 8 lineto 9 9 lineto 8 9 lineto closepath fill 1 setgray newpath 9 8 moveto 10 8 lineto 10 9 lineto 9 9 lineto closepath fill 
+1 setgray newpath 0 9 moveto 1 9 lineto 1 10 lineto 0 10 lineto closepath fill 0 setgray newpath 1 9 moveto 2 9 lineto 2 10 lineto 1 10 lineto closepath fill 1 setgray newpath 2 9 moveto 3 9 lineto 3 10 lineto 2 10 lineto closepath fill 0 setgray newpath 3 9 moveto 4 9 lineto 4 10 lineto 3 10 lineto closepath fill 1 setgray newpath 4 9 moveto 5 9 lineto 5 10 lineto 4 10 lineto closepath fill 0 setgray newpath 5 9 moveto 6 9 lineto 6 10 lineto 5 10 lineto closepath fill 0 setgray newpath 6 9 moveto 7 9 lineto 7 10 lineto 6 10 lineto closepath fill 0 setgray newpath 7 9 moveto 8 9 lineto 8 10 lineto 7 10 lineto closepath fill 0 setgray newpath 8 9 moveto 9 9 lineto 9 10 lineto 8 10 lineto closepath fill 0 setgray newpath 9 9 moveto 10 9 lineto 10 10 lineto 9 10 lineto closepath fill 
+grestore
+
+        grestore
+
+        /Helvetica-Narrow findfont
+        10 scalefont
+        setfont
+        newpath
+        426 590 moveto
+        (85 (Thu, 15 Dec 2022, 07:19:57 pm)) show
+    
diff --git a/printed-programs/86.folk b/printed-programs/86.folk
new file mode 100644
index 00000000..ebea3eb9
--- /dev/null
+++ b/printed-programs/86.folk
@@ -0,0 +1 @@
+Claim firstName is "Paul"
diff --git a/printed-programs/86.pdf b/printed-programs/86.pdf
new file mode 100644
index 00000000..30c588e0
--- /dev/null
+++ b/printed-programs/86.pdf
diff --git a/printed-programs/86.ps b/printed-programs/86.ps
new file mode 100644
index 00000000..16550d8b
--- /dev/null
+++ b/printed-programs/86.ps
@@ -0,0 +1,37 @@
+
+        %!PS
+        << /PageSize [612 792] >> setpagedevice
+
+        /Courier findfont
+        12 scalefont
+        setfont
+        newpath
+        36 738.0 moveto (Claim firstName is "Paul") show
+
+        gsave
+        426 606 translate
+        150 150 scale
+        gsave
+0 1 translate
+0.100000 -0.100000 scale
+0 setgray newpath 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto closepath fill 1 setgray newpath 1 0 moveto 2 0 lineto 2 1 lineto 1 1 lineto closepath fill 0 setgray newpath 2 0 moveto 3 0 lineto 3 1 lineto 2 1 lineto closepath fill 0 setgray newpath 3 0 moveto 4 0 lineto 4 1 lineto 3 1 lineto closepath fill 0 setgray newpath 4 0 moveto 5 0 lineto 5 1 lineto 4 1 lineto closepath fill 0 setgray newpath 5 0 moveto 6 0 lineto 6 1 lineto 5 1 lineto closepath fill 0 setgray newpath 6 0 moveto 7 0 lineto 7 1 lineto 6 1 lineto closepath fill 0 setgray newpath 7 0 moveto 8 0 lineto 8 1 lineto 7 1 lineto closepath fill 0 setgray newpath 8 0 moveto 9 0 lineto 9 1 lineto 8 1 lineto closepath fill 1 setgray newpath 9 0 moveto 10 0 lineto 10 1 lineto 9 1 lineto closepath fill 
+1 setgray newpath 0 1 moveto 1 1 lineto 1 2 lineto 0 2 lineto closepath fill 0 setgray newpath 1 1 moveto 2 1 lineto 2 2 lineto 1 2 lineto closepath fill 0 setgray newpath 2 1 moveto 3 1 lineto 3 2 lineto 2 2 lineto closepath fill 0 setgray newpath 3 1 moveto 4 1 lineto 4 2 lineto 3 2 lineto closepath fill 0 setgray newpath 4 1 moveto 5 1 lineto 5 2 lineto 4 2 lineto closepath fill 0 setgray newpath 5 1 moveto 6 1 lineto 6 2 lineto 5 2 lineto closepath fill 0 setgray newpath 6 1 moveto 7 1 lineto 7 2 lineto 6 2 lineto closepath fill 0 setgray newpath 7 1 moveto 8 1 lineto 8 2 lineto 7 2 lineto closepath fill 0 setgray newpath 8 1 moveto 9 1 lineto 9 2 lineto 8 2 lineto closepath fill 1 setgray newpath 9 1 moveto 10 1 lineto 10 2 lineto 9 2 lineto closepath fill 
+0 setgray newpath 0 2 moveto 1 2 lineto 1 3 lineto 0 3 lineto closepath fill 0 setgray newpath 1 2 moveto 2 2 lineto 2 3 lineto 1 3 lineto closepath fill 1 setgray newpath 2 2 moveto 3 2 lineto 3 3 lineto 2 3 lineto closepath fill 1 setgray newpath 3 2 moveto 4 2 lineto 4 3 lineto 3 3 lineto closepath fill 1 setgray newpath 4 2 moveto 5 2 lineto 5 3 lineto 4 3 lineto closepath fill 1 setgray newpath 5 2 moveto 6 2 lineto 6 3 lineto 5 3 lineto closepath fill 1 setgray newpath 6 2 moveto 7 2 lineto 7 3 lineto 6 3 lineto closepath fill 1 setgray newpath 7 2 moveto 8 2 lineto 8 3 lineto 7 3 lineto closepath fill 0 setgray newpath 8 2 moveto 9 2 lineto 9 3 lineto 8 3 lineto closepath fill 0 setgray newpath 9 2 moveto 10 2 lineto 10 3 lineto 9 3 lineto closepath fill 
+1 setgray newpath 0 3 moveto 1 3 lineto 1 4 lineto 0 4 lineto closepath fill 0 setgray newpath 1 3 moveto 2 3 lineto 2 4 lineto 1 4 lineto closepath fill 1 setgray newpath 2 3 moveto 3 3 lineto 3 4 lineto 2 4 lineto closepath fill 1 setgray newpath 3 3 moveto 4 3 lineto 4 4 lineto 3 4 lineto closepath fill 1 setgray newpath 4 3 moveto 5 3 lineto 5 4 lineto 4 4 lineto closepath fill 0 setgray newpath 5 3 moveto 6 3 lineto 6 4 lineto 5 4 lineto closepath fill 1 setgray newpath 6 3 moveto 7 3 lineto 7 4 lineto 6 4 lineto closepath fill 1 setgray newpath 7 3 moveto 8 3 lineto 8 4 lineto 7 4 lineto closepath fill 0 setgray newpath 8 3 moveto 9 3 lineto 9 4 lineto 8 4 lineto closepath fill 1 setgray newpath 9 3 moveto 10 3 lineto 10 4 lineto 9 4 lineto closepath fill 
+0 setgray newpath 0 4 moveto 1 4 lineto 1 5 lineto 0 5 lineto closepath fill 0 setgray newpath 1 4 moveto 2 4 lineto 2 5 lineto 1 5 lineto closepath fill 1 setgray newpath 2 4 moveto 3 4 lineto 3 5 lineto 2 5 lineto closepath fill 1 setgray newpath 3 4 moveto 4 4 lineto 4 5 lineto 3 5 lineto closepath fill 0 setgray newpath 4 4 moveto 5 4 lineto 5 5 lineto 4 5 lineto closepath fill 0 setgray newpath 5 4 moveto 6 4 lineto 6 5 lineto 5 5 lineto closepath fill 0 setgray newpath 6 4 moveto 7 4 lineto 7 5 lineto 6 5 lineto closepath fill 1 setgray newpath 7 4 moveto 8 4 lineto 8 5 lineto 7 5 lineto closepath fill 0 setgray newpath 8 4 moveto 9 4 lineto 9 5 lineto 8 5 lineto closepath fill 1 setgray newpath 9 4 moveto 10 4 lineto 10 5 lineto 9 5 lineto closepath fill 
+1 setgray newpath 0 5 moveto 1 5 lineto 1 6 lineto 0 6 lineto closepath fill 0 setgray newpath 1 5 moveto 2 5 lineto 2 6 lineto 1 6 lineto closepath fill 1 setgray newpath 2 5 moveto 3 5 lineto 3 6 lineto 2 6 lineto closepath fill 1 setgray newpath 3 5 moveto 4 5 lineto 4 6 lineto 3 6 lineto closepath fill 1 setgray newpath 4 5 moveto 5 5 lineto 5 6 lineto 4 6 lineto closepath fill 0 setgray newpath 5 5 moveto 6 5 lineto 6 6 lineto 5 6 lineto closepath fill 1 setgray newpath 6 5 moveto 7 5 lineto 7 6 lineto 6 6 lineto closepath fill 1 setgray newpath 7 5 moveto 8 5 lineto 8 6 lineto 7 6 lineto closepath fill 0 setgray newpath 8 5 moveto 9 5 lineto 9 6 lineto 8 6 lineto closepath fill 0 setgray newpath 9 5 moveto 10 5 lineto 10 6 lineto 9 6 lineto closepath fill 
+0 setgray newpath 0 6 moveto 1 6 lineto 1 7 lineto 0 7 lineto closepath fill 0 setgray newpath 1 6 moveto 2 6 lineto 2 7 lineto 1 7 lineto closepath fill 1 setgray newpath 2 6 moveto 3 6 lineto 3 7 lineto 2 7 lineto closepath fill 1 setgray newpath 3 6 moveto 4 6 lineto 4 7 lineto 3 7 lineto closepath fill 0 setgray newpath 4 6 moveto 5 6 lineto 5 7 lineto 4 7 lineto closepath fill 1 setgray newpath 5 6 moveto 6 6 lineto 6 7 lineto 5 7 lineto closepath fill 0 setgray newpath 6 6 moveto 7 6 lineto 7 7 lineto 6 7 lineto closepath fill 1 setgray newpath 7 6 moveto 8 6 lineto 8 7 lineto 7 7 lineto closepath fill 0 setgray newpath 8 6 moveto 9 6 lineto 9 7 lineto 8 7 lineto closepath fill 0 setgray newpath 9 6 moveto 10 6 lineto 10 7 lineto 9 7 lineto closepath fill 
+0 setgray newpath 0 7 moveto 1 7 lineto 1 8 lineto 0 8 lineto closepath fill 0 setgray newpath 1 7 moveto 2 7 lineto 2 8 lineto 1 8 lineto closepath fill 1 setgray newpath 2 7 moveto 3 7 lineto 3 8 lineto 2 8 lineto closepath fill 1 setgray newpath 3 7 moveto 4 7 lineto 4 8 lineto 3 8 lineto closepath fill 1 setgray newpath 4 7 moveto 5 7 lineto 5 8 lineto 4 8 lineto closepath fill 1 setgray newpath 5 7 moveto 6 7 lineto 6 8 lineto 5 8 lineto closepath fill 1 setgray newpath 6 7 moveto 7 7 lineto 7 8 lineto 6 8 lineto closepath fill 1 setgray newpath 7 7 moveto 8 7 lineto 8 8 lineto 7 8 lineto closepath fill 0 setgray newpath 8 7 moveto 9 7 lineto 9 8 lineto 8 8 lineto closepath fill 0 setgray newpath 9 7 moveto 10 7 lineto 10 8 lineto 9 8 lineto closepath fill 
+0 setgray newpath 0 8 moveto 1 8 lineto 1 9 lineto 0 9 lineto closepath fill 0 setgray newpath 1 8 moveto 2 8 lineto 2 9 lineto 1 9 lineto closepath fill 0 setgray newpath 2 8 moveto 3 8 lineto 3 9 lineto 2 9 lineto closepath fill 0 setgray newpath 3 8 moveto 4 8 lineto 4 9 lineto 3 9 lineto closepath fill 0 setgray newpath 4 8 moveto 5 8 lineto 5 9 lineto 4 9 lineto closepath fill 0 setgray newpath 5 8 moveto 6 8 lineto 6 9 lineto 5 9 lineto closepath fill 0 setgray newpath 6 8 moveto 7 8 lineto 7 9 lineto 6 9 lineto closepath fill 0 setgray newpath 7 8 moveto 8 8 lineto 8 9 lineto 7 9 lineto closepath fill 0 setgray newpath 8 8 moveto 9 8 lineto 9 9 lineto 8 9 lineto closepath fill 1 setgray newpath 9 8 moveto 10 8 lineto 10 9 lineto 9 9 lineto closepath fill 
+0 setgray newpath 0 9 moveto 1 9 lineto 1 10 lineto 0 10 lineto closepath fill 1 setgray newpath 1 9 moveto 2 9 lineto 2 10 lineto 1 10 lineto closepath fill 0 setgray newpath 2 9 moveto 3 9 lineto 3 10 lineto 2 10 lineto closepath fill 0 setgray newpath 3 9 moveto 4 9 lineto 4 10 lineto 3 10 lineto closepath fill 1 setgray newpath 4 9 moveto 5 9 lineto 5 10 lineto 4 10 lineto closepath fill 1 setgray newpath 5 9 moveto 6 9 lineto 6 10 lineto 5 10 lineto closepath fill 0 setgray newpath 6 9 moveto 7 9 lineto 7 10 lineto 6 10 lineto closepath fill 0 setgray newpath 7 9 moveto 8 9 lineto 8 10 lineto 7 10 lineto closepath fill 1 setgray newpath 8 9 moveto 9 9 lineto 9 10 lineto 8 10 lineto closepath fill 0 setgray newpath 9 9 moveto 10 9 lineto 10 10 lineto 9 10 lineto closepath fill 
+grestore
+
+        grestore
+
+        /Helvetica-Narrow findfont
+        10 scalefont
+        setfont
+        newpath
+        426 590 moveto
+        (86 (Thu, 15 Dec 2022, 07:21:27 pm)) show
+    
diff --git a/printed-programs/next-id.txt b/printed-programs/next-id.txt
index 871727de..84df3526 100644
--- a/printed-programs/next-id.txt
+++ b/printed-programs/next-id.txt
@@ -1 +1 @@
-84
+87