1 files changed, 7 insertions, 0 deletions
diff --git a/2024/tcl/lib.tcl b/2024/tcl/lib.tcl
index 2968072..048bce5 100644
--- a/2024/tcl/lib.tcl
+++ b/2024/tcl/lib.tcl
@@ -47,3 +47,10 @@ proc sindex {str args} {
   }
   return $ret
 }
+proc lrindex {list args} {
+  set ret {}
+  foreach arg $args {
+    lappend ret [lindex $list {*}$arg]
+  }
+  return $ret
+}