From d2c46077f56c3b0a8dd7c34924c3ccb80fed892b Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sat, 29 Jan 2022 17:58:41 +0200
Subject: Add debug flag, phrase handling words

---
 samples/modulo.sample | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 samples/modulo.sample

(limited to 'samples/modulo.sample')

diff --git a/samples/modulo.sample b/samples/modulo.sample
new file mode 100644
index 0000000..235d135
--- /dev/null
+++ b/samples/modulo.sample
@@ -0,0 +1,5 @@
+10 $idx !
+[ $idx @ dup 0 gt? ]
+    [ 2 mod 0 eq? .
+      $idx @ 1 - $idx ! ] loop
+drop
\ No newline at end of file
-- 
cgit v1.3