From df0d6a4503a26508553510b4050eaa79f52e4e4e Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Sun, 18 Oct 2020 18:22:31 +0300
Subject: Another step to release.

---
 sts/keygen.sts | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 sts/keygen.sts

(limited to 'sts/keygen.sts')

diff --git a/sts/keygen.sts b/sts/keygen.sts
new file mode 100644
index 0000000..6067c0d
--- /dev/null
+++ b/sts/keygen.sts
@@ -0,0 +1,34 @@
+defword keygen
+    ; Increment
+    0
+    do
+    over over = until
+        dup 2 + get
+        dup ff < if
+            1 + over 2 + set
+            drop
+            exit
+        fi
+        drop 0 over 2 + set
+        1 +
+    od
+    drop
+
+    ; Clean old stack data
+    dup
+    do
+    dup 0 = until
+        1 get 2 set swap drop
+        1 -
+    od
+    drop
+
+    1 +
+    0
+    do
+    over over = until
+        dup 2 get 1 set 0 2 set
+        1 +
+    od
+    drop
+exit
-- 
cgit v1.2.3