From fbf1ad5d946eceb3fd75cf9ddfb977623019d549 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Wed, 4 Dec 2024 00:43:56 -0500
Subject: 2024.4 try 1, unfinished

---
 2024/tcl/lib.tcl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to '2024/tcl/lib.tcl')

diff --git a/2024/tcl/lib.tcl b/2024/tcl/lib.tcl
index 698bb9a..2968072 100644
--- a/2024/tcl/lib.tcl
+++ b/2024/tcl/lib.tcl
@@ -39,3 +39,11 @@ proc regroup {pat {var input}} {
   lappend list2 $cur
   set list $list2
 }
+
+proc sindex {str args} {
+  set ret {}
+  foreach arg $args {
+    append ret [string index $str $arg]
+  }
+  return $ret
+}
-- 
cgit v1.2.3-70-g09d2