From 26c65655e1085cd95add3fe2b9133f78e48957f4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20Hru=C5=A1ka?= <ondra@ondrovo.com>
Date: Mon, 15 Nov 2021 00:01:04 +0100
Subject: [PATCH] demo of nested loop

---
 loops.forth | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/loops.forth b/loops.forth
index 449deac..7f6d62f 100644
--- a/loops.forth
+++ b/loops.forth
@@ -3,3 +3,18 @@
 
 : test2 begin 1 - dup . dup 0= until ;
 10 test2
+
+: test3
+    dup .
+    begin
+    1 - dup
+
+    ." ( "
+    5 begin dup while 1 - dup . repeat
+    ." ) " drop
+
+    .
+    dup 0=
+    until ;
+
+3 test3