From 6d452fcb97b7ea0badb0369ba69c8966ea09646b Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Mon, 19 Nov 2018 16:44:36 +0000
Subject: [PATCH] new example: unu in retro

FossilOrigin-Name: 5edd4a53544b383fed144cbb40f99ffc9fca62bc7fd6b6fc761a4bfbdddea563
---
 example/retro-unu.forth | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 example/retro-unu.forth

diff --git a/example/retro-unu.forth b/example/retro-unu.forth
new file mode 100755
index 0000000..8f785ec
--- /dev/null
+++ b/example/retro-unu.forth
@@ -0,0 +1,22 @@
+#!/usr/bin/env retro
+
+~~~
+{{
+  'Fenced var
+  :toggle-fence @Fenced not !Fenced ;
+  :fenced? (-f) @Fenced ;
+  :handle-line (s-)
+    fenced? [ over call ] [ drop ] choose ;
+---reveal---
+  :unu (sq-)
+    swap [ dup '~~~ s:eq?
+           [ drop toggle-fence ]
+           [ handle-line       ] choose
+         ] file:for-each-line drop ;
+}}
+~~~
+
+~~~
+#0 sys:argv [ s:put nl ] unu
+~~~
+