Add function to free an entire parse tree.
diff --git a/Parser/node.c b/Parser/node.c
index 86d607a..264fd9e 100644
--- a/Parser/node.c
+++ b/Parser/node.c
@@ -45,3 +45,26 @@
 	n->n_child = NULL;
 	return n;
 }
+
+static void
+freechildren(n)
+	node *n;
+{
+	int i;
+	for (i = NCH(n); --i >= 0; )
+		freechildren(CHILD(n, i));
+	if (n->n_child != NULL)
+		DEL(n->n_child);
+	if (STR(n) != NULL)
+		DEL(STR(n));
+}
+
+void
+freenode(n)
+	node *n;
+{
+	if (n != NULL) {
+		freechildren(n);
+		DEL(n);
+	}
+}