1 files changed, 13 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 00807a85..194d8cb6 100644
--- a/lib.c
+++ b/lib.c
@@ -3586,6 +3586,19 @@ static val rexpt(val right, val left)
   return expt(left, right);
 }
 
+val bracket(val larg, struct args *args)
+{
+  cnum index = 0;
+
+  while (args_more(args, index)) {
+    val rarg = args_get(args, &index);
+    if (less(larg, rarg))
+      return num(index - 1);
+  }
+
+  return num(index);
+}
+
 val exptv(struct args *nlist)
 {
   cnum nargs = args_count(nlist);