From: Eric S. Raymond <esr@thyrsus.com>
Date: Thu, 3 Nov 1994 05:25:00 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 1-2~99
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=ec80fe054be6ee0522d8ffdd360441afe17dfbb1;p=cupl.git

Initial revision
---

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