From 5243401a14f66c4eb3de1eef9f800e1500f30cab Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 21:14:51 +0000
Subject: [PATCH] Initial revision

---
 test/poly11.cupl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 test/poly11.cupl

diff --git a/test/poly11.cupl b/test/poly11.cupl
new file mode 100644
index 0000000..2e4bf47
--- /dev/null
+++ b/test/poly11.cupl
@@ -0,0 +1,12 @@
+COMMENT	EVALUATION OF A POLYNOMIAL
+COMMENT (SPECIFICALLY, SUM FOR K = 1 TO 11 OF K!X**K, PLUS 1)
+	READ X
+	LET FOFX = 0
+	LET TERM = 1
+	PERFORM STEP FOR N = 1 TO 11
+STEP	BLOCK
+	LET FOFX = FOFX + TERM
+	LET TERM = TERM*N*X
+STEP	END
+	WRITE X, FOFX
+	STOP
-- 
2.43.0