From ec80fe054be6ee0522d8ffdd360441afe17dfbb1 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Thu, 3 Nov 1994 05:25:00 +0000
Subject: [PATCH] Initial revision

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

diff --git a/test/rise.cupl b/test/rise.cupl
new file mode 100644
index 0000000..8673407
--- /dev/null
+++ b/test/rise.cupl
@@ -0,0 +1,14 @@
+COMMENT	COMPARE ITERATED INCREMENT, DOUBLING, SQUARING, AND MULTIPLICATION
+	LET K = 0
+	LET M = 1
+	LET P = 10
+	LET F = 1
+	PERFORM CHANGE N TIMES
+	WRITE K,M,P,F
+	STOP
+CHANGE	BLOCK
+	LET K = K + 1
+	LET M = 2*M
+	LET P = P**2
+	LET F = F*K
+CHANGE	END
-- 
2.43.0