Let's try this. It's BUGGERED.

src/cmd/eqn/funny.c

@@ -0,0 +1,30 @@
+#include "e.h"
+#include "y.tab.h"
+
+extern int Funnyps;
+extern double Funnyht, Funnybase;
+
+void funny(int n)
+{
+	char *f = 0;
+
+	yyval = salloc();
+	switch (n) {
+	case SUM:
+		f = lookup(deftbl, "sum_def")->cval; break;
+	case UNION:
+		f = lookup(deftbl, "union_def")->cval; break;
+	case INTER:	/* intersection */
+		f = lookup(deftbl, "inter_def")->cval; break;
+	case PROD:
+		f = lookup(deftbl, "prod_def")->cval; break;
+	default:
+		ERROR "funny type %d in funny", n FATAL;
+	}
+	printf(".ds %d %s\n", yyval, f);
+	eht[yyval] = EM(1.0, ps+Funnyps) - EM(Funnyht, ps);
+	ebase[yyval] = EM(Funnybase, ps);
+	dprintf(".\tS%d <- %s; h=%g b=%g\n", 
+		yyval, f, eht[yyval], ebase[yyval]);
+	lfont[yyval] = rfont[yyval] = ROM;
+}