1 files changed, 13 insertions, 0 deletions
diff --git a/book/examples/chapter4/Comment.gf b/book/examples/chapter4/Comment.gf
new file mode 100644
index 000000000..0a812c6ef
--- /dev/null
+++ b/book/examples/chapter4/Comment.gf
@@ -0,0 +1,13 @@
+abstract Comment = {
+  flags startcat = Comment ;
+  cat
+    Comment ; Item ; Kind ; Quality ;
+  fun
+    Pred : Item -> Quality -> Comment ;
+    This, That, These, Those : Kind -> Item ;
+    Mod : Quality -> Kind -> Kind ;
+    Wine, Cheese, Fish, Pizza : Kind ;
+    Very : Quality -> Quality ;
+    Fresh, Warm, Italian, 
+      Expensive, Delicious, Boring : Quality ;
+}