--- a/progs/matcher/re1.sc	Mon Jun 05 10:50:36 2023 +0100
+++ b/progs/matcher/re1.sc	Wed Jul 05 16:12:40 2023 +0100
@@ -55,7 +55,8 @@
 
 
 
-
+val r = SEQ(CHAR('b'), CHAR('c'))
+matcher(r, "ac")
 
 // some examples from the homework