From 649319b1dafb130801638c5a156e37d9e865ba5c Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sat, 29 Jan 2022 23:11:03 +0200
Subject: Implement strings as phrases of chars

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

(limited to 'samples/char.sample')

diff --git a/samples/char.sample b/samples/char.sample
new file mode 100644
index 0000000..05e2b9a
--- /dev/null
+++ b/samples/char.sample
@@ -0,0 +1,9 @@
+define up   unphrase ;
+define p    phrase ;
+
+define hello
+    $name !
+    '[ "Hello " up $name @ up " 👋" up '] p
+    $name forget ;
+
+"Jan" hello s.
-- 
cgit v1.3