From f5d5e45149efd64967eb3a080f84d4cae4df58a3 Mon Sep 17 00:00:00 2001
From: Naren Ratan <narenratan@gmail.com>
Date: Sun, 1 Dec 2019 22:48:25 +0000
Subject: Add (( )) for DO LOOP

---
 jonesforth.f | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/jonesforth.f b/jonesforth.f
index 51d63e7..44db111 100644
--- a/jonesforth.f
+++ b/jonesforth.f
@@ -36,6 +36,9 @@
 : ∥) I ' BNZ , H - , ;                  / ( A ∥) does A until false /
 : 1∥) I ' BR , H - , ;                  / ( A 1∥) does A indefinitely /
 
+: (( I ' n! , [COMP] ( ;                / n (( A )) does A n times /
+: )) I ' n- , ' n , [COMP] ∥) ;
+
 : ∇ I S { [COMP] ; | : } ;              / ∇ starts and ends definitions /
 
 ∇ . ↑ 0≥ { U. | NEG U. '-' EMIT } ∇     / n→ Print signed number /
-- 
cgit 1.4.1-2-gfad0