From e866b15355b093ddf9076eba7261f36df20ebaac Mon Sep 17 00:00:00 2001
From: Hugo Heuzard <hugo.heuzard@gmail.com>
Date: Mon, 4 Dec 2023 15:55:08 +0100
Subject: [PATCH] Misc: promote to 5.3

---
 .github/workflows/build.yml                 |   14 +-
 compiler/tests-check-prim/main.output5      |    2 -
 compiler/tests-check-prim/unix-unix.output  |    1 +
 compiler/tests-check-prim/unix-unix.output5 |    2 -
 compiler/tests-check-prim/unix-win32.output |    1 +
 compiler/tests-full/dune                    |    6 +-
 compiler/tests-full/stdlib.cma.expected.js  | 8072 ++++++++++---------
 ppx/ppx_deriving_json/tests/gen.mlt         |    4 -
 ppx/ppx_js/tests/ppx.mlt                    |   18 +-
 9 files changed, 4371 insertions(+), 3749 deletions(-)

diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml
index 8f7f35b87a..31ed27ce87 100644
--- a/.github/workflows/build.yml
+++ b/.github/workflows/build.yml
@@ -25,6 +25,7 @@ jobs:
           - "4.13"
           - "5.0"
           - "5.1"
+          - "5.2"
         skip-test:
           - true
         skip-doc:
@@ -48,17 +49,17 @@ jobs:
             skip-test: false
             skip-doc: true
           - os: ubuntu-latest
-            ocaml-compiler: "5.2"
+            ocaml-compiler: "ocaml-variants.5.3.0~alpha1"
             skip-effects: false
             skip-test: false
             skip-doc: false
           - os: macos-latest
-            ocaml-compiler: "5.2"
+            ocaml-compiler: "ocaml-variants.5.3.0~alpha1"
             skip-effects: true
             skip-test: false
             skip-doc: true
           - os: windows-latest
-            ocaml-compiler: "5.2"
+            ocaml-compiler: "ocaml-variants.5.3.0~alpha1"
             skip-effects: false
             skip-test: false
             skip-doc: true
@@ -91,6 +92,13 @@ jobs:
       - run: opam install conf-pkg-config
         if: runner.os == 'Windows'
 
+      - run: opam pin add ppxlib --dev --no-action
+        if: ${{ matrix.ocaml-compiler == 'ocaml-variants.5.3.0~alpha1' }}
+      - run: opam pin add ppxlib_jane git+https://github.com/hhugo/ppxlib_jane.git#trunk-support-503 --no-action
+        if: ${{ matrix.ocaml-compiler == 'ocaml-variants.5.3.0~alpha1' }}
+
+      - run: opam pin add ./ --no-action
+
       - run: opam install . --best-effort
         if: ${{ matrix.skip-test }}
 
diff --git a/compiler/tests-check-prim/main.output5 b/compiler/tests-check-prim/main.output5
index c2501c6317..0eb366941a 100644
--- a/compiler/tests-check-prim/main.output5
+++ b/compiler/tests-check-prim/main.output5
@@ -4,7 +4,6 @@ Missing
 From main.bc:
 caml_alloc_dummy_function
 caml_continuation_use
-caml_drop_continuation
 caml_dynlink_add_primitive
 caml_dynlink_close_lib
 caml_dynlink_get_current_libs
@@ -171,7 +170,6 @@ caml_spacetime_only_works_for_native_code
 caml_sys_const_naked_pointers_checked
 
 From +toplevel.js:
-caml_get_section_table
 caml_static_alloc
 caml_static_free
 caml_terminfo_backup
diff --git a/compiler/tests-check-prim/unix-unix.output b/compiler/tests-check-prim/unix-unix.output
index 5e8889c2ff..d6abf966c5 100644
--- a/compiler/tests-check-prim/unix-unix.output
+++ b/compiler/tests-check-prim/unix-unix.output
@@ -136,6 +136,7 @@ Unused
 -------
 
 From +array.js:
+caml_array_create_float
 caml_check_bound
 
 From +bigarray.js:
diff --git a/compiler/tests-check-prim/unix-unix.output5 b/compiler/tests-check-prim/unix-unix.output5
index 799210ad46..6ba27a9417 100644
--- a/compiler/tests-check-prim/unix-unix.output5
+++ b/compiler/tests-check-prim/unix-unix.output5
@@ -4,7 +4,6 @@ Missing
 From unix.bc:
 caml_alloc_dummy_function
 caml_continuation_use
-caml_drop_continuation
 caml_dynlink_add_primitive
 caml_dynlink_close_lib
 caml_dynlink_get_current_libs
@@ -282,7 +281,6 @@ caml_spacetime_only_works_for_native_code
 caml_sys_const_naked_pointers_checked
 
 From +toplevel.js:
-caml_get_section_table
 caml_static_alloc
 caml_static_free
 caml_terminfo_backup
diff --git a/compiler/tests-check-prim/unix-win32.output b/compiler/tests-check-prim/unix-win32.output
index 52ac92cf96..aecf71d99c 100644
--- a/compiler/tests-check-prim/unix-win32.output
+++ b/compiler/tests-check-prim/unix-win32.output
@@ -101,6 +101,7 @@ Unused
 -------
 
 From +array.js:
+caml_array_create_float
 caml_check_bound
 
 From +bigarray.js:
diff --git a/compiler/tests-full/dune b/compiler/tests-full/dune
index 5effacad3b..3c10ed243c 100644
--- a/compiler/tests-full/dune
+++ b/compiler/tests-full/dune
@@ -1,7 +1,7 @@
 (rule
  (targets stdlib.cma.js)
  (enabled_if
-  (= %{ocaml_version} "5.2.0"))
+  (> %{ocaml_version} "5.2.0"))
  (action
   (run
    %{bin:js_of_ocaml}
@@ -14,7 +14,7 @@
 (rule
  (targets stdlib.cma.output.js)
  (enabled_if
-  (= %{ocaml_version} "5.2.0"))
+  (> %{ocaml_version} "5.2.0"))
  (action
   (with-stdout-to
    %{targets}
@@ -23,7 +23,7 @@
 (rule
  (alias runtest)
  (enabled_if
-  (= %{ocaml_version} "5.2.0"))
+  (> %{ocaml_version} "5.2.0"))
  (action
   (diff stdlib.cma.expected.js stdlib.cma.output.js)))
 
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 254b13f11a..0b682baad8 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -1114,8 +1114,8 @@
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_wrap_exception = runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
-    ocaml_version = "5.2.0",
-    ocaml_release = [0, 5, 2, 0, 0],
+    ocaml_version = "5.3.0~alpha1",
+    ocaml_release = [0, 5, 3, 0, [0, [0, 1, "alpha1"]]],
     Stdlib = global_data.Stdlib,
      /*<<sys.ml.in:36:22>>*/ executable_name =
        /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name(0),
@@ -1128,28 +1128,28 @@
     max_floatarray_length = max_array_length / 2 | 0,
     max_string_length = (4 * max_array_length | 0) - 1 | 0;
    function getenv_opt(s){
-     /*<<sys.ml.in:60:2>>*/ try{
-      /*<<sys.ml.in:60:6>>*/  /*<<sys.ml.in:60:6>>*/ var
-      _d_ = [0,  /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv(s)];
-      /*<<sys.ml.in:60:6>>*/ return _d_;
+     /*<<sys.ml.in:61:2>>*/ try{
+      /*<<sys.ml.in:61:6>>*/  /*<<sys.ml.in:61:6>>*/ var
+      _d_ = [0,  /*<<sys.ml.in:61:11>>*/ runtime.caml_sys_getenv(s)];
+      /*<<sys.ml.in:61:6>>*/ return _d_;
     }
     catch(_e_){
      var _c_ = caml_wrap_exception(_e_);
-     if(_c_ === Stdlib[8])  /*<<sys.ml.in:61:20>>*/ return 0;
+     if(_c_ === Stdlib[8])  /*<<sys.ml.in:62:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_c_, 0);
     }
-    /*<<sys.ml.in:61:24>>*/ }
-    /*<<sys.ml.in:72:18>>*/  /*<<sys.ml.in:72:18>>*/ var interactive = [0, 0];
-   function set_signal(sig_num, sig_beh){ /*<<sys.ml.in:82:33>>*/ return 0;
-    /*<<sys.ml.in:82:63>>*/ }
-    /*<<sys.ml.in:113:0>>*/  /*<<sys.ml.in:113:0>>*/ var
+    /*<<sys.ml.in:62:24>>*/ }
+    /*<<sys.ml.in:73:18>>*/  /*<<sys.ml.in:73:18>>*/ var interactive = [0, 0];
+   function set_signal(sig_num, sig_beh){ /*<<sys.ml.in:83:33>>*/ return 0;
+    /*<<sys.ml.in:83:63>>*/ }
+    /*<<sys.ml.in:114:0>>*/  /*<<sys.ml.in:114:0>>*/ var
     Break = [248, "Stdlib.Sys.Break", runtime.caml_fresh_oo_id(0)];
    function catch_break(on){
-     /*<<sys.ml.in:116:2>>*/ return on ? 0 : 0;
-    /*<<sys.ml.in:119:36>>*/ }
-   function Make(_b_, _a_){ /*<<sys.ml.in:163:70>>*/ return [0, 1];}
-    /*<<sys.ml.in:155:21>>*/ var
-     /*<<sys.ml.in:155:21>>*/ Immediate64 = [0, Make],
+     /*<<sys.ml.in:117:2>>*/ return on ? 0 : 0;
+    /*<<sys.ml.in:120:36>>*/ }
+   function Make(_b_, _a_){ /*<<sys.ml.in:164:70>>*/ return [0, 1];}
+    /*<<sys.ml.in:156:21>>*/ var
+     /*<<sys.ml.in:156:21>>*/ Immediate64 = [0, Make],
     Stdlib_Sys =
       [0,
        executable_name,
@@ -1198,7 +1198,7 @@
        Break,
        catch_break,
        ocaml_version,
-       0,
+       1,
        ocaml_release,
        runtime.caml_ml_enable_runtime_warnings,
        runtime.caml_ml_runtime_warnings_enabled,
@@ -3046,6 +3046,7 @@
     runtime = globalThis.jsoo_runtime,
     cst_uchar_ml = "uchar.ml",
     caml_format_int = runtime.caml_format_int,
+    caml_hash = runtime.caml_hash,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
     /*<<?>>*/ function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) == 1
@@ -3063,7 +3064,7 @@
     err_no_succ = "U+10FFFF has no successor",
     Assert_failure = global_data.Assert_failure,
     Stdlib = global_data.Stdlib,
-    cst_is_not_an_Unicode_scalar_v = " is not an Unicode scalar value",
+    cst_is_not_a_Unicode_scalar_va = " is not a Unicode scalar value",
     cst_is_not_a_latin1_character = " is not a latin1 character",
     cst_U = "U+",
     lo_bound = 55295,
@@ -3080,24 +3081,24 @@
     /*<<uchar.ml:41:7>>*/ }
    function is_valid(i){
      /*<<uchar.ml:43:17>>*/ var
-     _n_ = 0 <= i ? 1 : 0,
-     _o_ = _n_ ? i <= 55295 ? 1 : 0 : _n_;
-    if(_o_)
-     var _p_ = _o_;
+     _m_ = 0 <= i ? 1 : 0,
+     _n_ = _m_ ? i <= 55295 ? 1 : 0 : _m_;
+    if(_n_)
+     var _o_ = _n_;
     else
-     var _q_ = 57344 <= i ? 1 : 0, _p_ = _q_ ? i <= 1114111 ? 1 : 0 : _q_;
-    return _p_;
+     var _p_ = 57344 <= i ? 1 : 0, _o_ = _p_ ? i <= 1114111 ? 1 : 0 : _p_;
+    return _o_;
     /*<<uchar.ml:43:75>>*/ }
    function of_int(i){
      /*<<uchar.ml:44:15>>*/ if(is_valid(i))  /*<<uchar.ml:44:34>>*/ return i;
      /*<<uchar.ml:20:19>>*/  /*<<uchar.ml:20:19>>*/ var
-     _m_ =
+     _l_ =
         /*<<uchar.ml:20:19>>*/ caml_call2
         (Stdlib[28],
           /*<<uchar.ml:20:19>>*/ caml_format_int("%X", i),
-         cst_is_not_an_Unicode_scalar_v);
+         cst_is_not_a_Unicode_scalar_va);
      /*<<uchar.ml:44:53>>*/ return  /*<<uchar.ml:44:53>>*/ caml_call1
-            (Stdlib[1], _m_);
+            (Stdlib[1], _l_);
     /*<<uchar.ml:44:67>>*/ }
    function is_char(u){
      /*<<uchar.ml:48:16>>*/ return u < 256 ? 1 : 0;
@@ -3108,62 +3109,69 @@
    function to_char(u){
      /*<<uchar.ml:51:2>>*/ if(255 >= u)  /*<<uchar.ml:52:2>>*/ return u;
      /*<<uchar.ml:21:30>>*/ var
-      /*<<uchar.ml:21:30>>*/ _k_ =
+      /*<<uchar.ml:21:30>>*/ _j_ =
         /*<<uchar.ml:21:30>>*/ caml_call2
         (Stdlib[28],
           /*<<uchar.ml:21:30>>*/ caml_format_int("%04X", u),
          cst_is_not_a_latin1_character),
-      /*<<uchar.ml:21:30>>*/ _l_ =
-        /*<<uchar.ml:21:30>>*/ caml_call2(Stdlib[28], cst_U, _k_);
+      /*<<uchar.ml:21:30>>*/ _k_ =
+        /*<<uchar.ml:21:30>>*/ caml_call2(Stdlib[28], cst_U, _j_);
      /*<<uchar.ml:51:30>>*/ return  /*<<uchar.ml:51:30>>*/ caml_call1
-            (Stdlib[1], _l_);
+            (Stdlib[1], _k_);
     /*<<uchar.ml:52:19>>*/ }
-   function unsafe_to_char(_j_){ /*<<?>>*/ return _j_;}
-   function equal(_i_, _h_){ /*<<?>>*/ return _i_ === _h_ ? 1 : 0;}
+   function unsafe_to_char(_i_){ /*<<?>>*/ return _i_;}
+   function equal(_h_, _g_){ /*<<?>>*/ return _h_ === _g_ ? 1 : 0;}
    var
     compare = runtime.caml_int_compare,
-    _a_ = [0, cst_uchar_ml, 85, 7],
-    _b_ = [0, cst_uchar_ml, 80, 18],
-    _c_ = [0, cst_uchar_ml, 91, 7],
-    _d_ = [0, cst_uchar_ml, 88, 18];
-   function hash(_g_){ /*<<?>>*/ return _g_;}
+    _a_ = [0, cst_uchar_ml, 89, 7],
+    _b_ = [0, cst_uchar_ml, 84, 18],
+    _c_ = [0, cst_uchar_ml, 95, 7],
+    _d_ = [0, cst_uchar_ml, 92, 18];
+   function seeded_hash(seed, x){
+     /*<<uchar.ml:61:25>>*/ return  /*<<uchar.ml:61:25>>*/ caml_hash
+            (10, 100, seed, x);
+    /*<<uchar.ml:61:56>>*/ }
+   function hash(x){
+     /*<<uchar.ml:62:13>>*/ return  /*<<uchar.ml:62:13>>*/ caml_hash
+            (10, 100, 0, x);
+    /*<<uchar.ml:62:41>>*/ }
    function utf_decode_is_valid(d){
-     /*<<uchar.ml:73:37>>*/ return 1 === (d >>> 27 | 0) ? 1 : 0;
-    /*<<uchar.ml:73:58>>*/ }
+     /*<<uchar.ml:77:37>>*/ return 1 === (d >>> 27 | 0) ? 1 : 0;
+    /*<<uchar.ml:77:58>>*/ }
    function utf_decode_length(d){
-     /*<<uchar.ml:74:35>>*/ return (d >>> 24 | 0) & 7;
-    /*<<uchar.ml:74:65>>*/ }
+     /*<<uchar.ml:78:35>>*/ return (d >>> 24 | 0) & 7;
+    /*<<uchar.ml:78:65>>*/ }
    function utf_decode_uchar(d){
-     /*<<uchar.ml:75:34>>*/ return d & 16777215;
-    /*<<uchar.ml:75:65>>*/ }
+     /*<<uchar.ml:79:34>>*/ return d & 16777215;
+    /*<<uchar.ml:79:65>>*/ }
    function utf_decode(n, u){
-     /*<<uchar.ml:76:30>>*/ return (8 | n) << 24 | u;
-    /*<<uchar.ml:76:72>>*/ }
+     /*<<uchar.ml:80:30>>*/ return (8 | n) << 24 | u;
+    /*<<uchar.ml:80:72>>*/ }
    function utf_decode_invalid(n){
-     /*<<uchar.ml:77:36>>*/ return n << 24 | 65533;
-    /*<<uchar.ml:77:63>>*/ }
+     /*<<uchar.ml:81:36>>*/ return n << 24 | 65533;
+    /*<<uchar.ml:81:63>>*/ }
    function utf_8_byte_length(u){
-     /*<<uchar.ml:79:26>>*/ if(0 > u)
-      /*<<uchar.ml:80:18>>*/ throw  /*<<uchar.ml:80:18>>*/ caml_maybe_attach_backtrace
+     /*<<uchar.ml:83:26>>*/ if(0 > u)
+      /*<<uchar.ml:84:18>>*/ throw  /*<<uchar.ml:84:18>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _b_], 1);
-     /*<<uchar.ml:81:9>>*/ if(127 >= u)  /*<<uchar.ml:81:24>>*/ return 1;
-     /*<<uchar.ml:82:9>>*/ if(2047 >= u)  /*<<uchar.ml:82:24>>*/ return 2;
-     /*<<uchar.ml:83:9>>*/ if(65535 >= u)  /*<<uchar.ml:83:24>>*/ return 3;
-     /*<<uchar.ml:84:9>>*/ if(1114111 < u)
-      /*<<uchar.ml:85:7>>*/ throw  /*<<uchar.ml:85:7>>*/ caml_maybe_attach_backtrace
+     /*<<uchar.ml:85:9>>*/ if(127 >= u)  /*<<uchar.ml:85:24>>*/ return 1;
+     /*<<uchar.ml:86:9>>*/ if(2047 >= u)  /*<<uchar.ml:86:24>>*/ return 2;
+     /*<<uchar.ml:87:9>>*/ if(65535 >= u)  /*<<uchar.ml:87:24>>*/ return 3;
+     /*<<uchar.ml:88:9>>*/ if(1114111 < u)
+      /*<<uchar.ml:89:7>>*/ throw  /*<<uchar.ml:89:7>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _a_], 1);
-     /*<<uchar.ml:84:26>>*/ return 4;
-    /*<<uchar.ml:85:19>>*/ }
+     /*<<uchar.ml:88:26>>*/ return 4;
+    /*<<uchar.ml:89:19>>*/ }
    function utf_16_byte_length(u){
-     /*<<uchar.ml:87:27>>*/ if(0 > u)
-      /*<<uchar.ml:88:18>>*/ throw  /*<<uchar.ml:88:18>>*/ caml_maybe_attach_backtrace
+     /*<<uchar.ml:91:27>>*/ if(0 > u)
+      /*<<uchar.ml:92:18>>*/ throw  /*<<uchar.ml:92:18>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _d_], 1);
-     /*<<uchar.ml:89:9>>*/ if(65535 >= u)  /*<<uchar.ml:89:24>>*/ return 2;
-     /*<<uchar.ml:90:9>>*/ if(1114111 < u)
-      /*<<uchar.ml:91:7>>*/ throw  /*<<uchar.ml:91:7>>*/ caml_maybe_attach_backtrace
+     /*<<uchar.ml:93:9>>*/ if(65535 >= u)  /*<<uchar.ml:93:24>>*/ return 2;
+     /*<<uchar.ml:94:9>>*/ if(1114111 < u)
+      /*<<uchar.ml:95:7>>*/ throw  /*<<uchar.ml:95:7>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _c_], 1);
-     /*<<uchar.ml:90:26>>*/ return 4;
-    /*<<uchar.ml:91:19>>*/ }
+     /*<<uchar.ml:94:26>>*/ return 4;
+    /*<<uchar.ml:95:19>>*/ }
    var
     Stdlib_Uchar =
       [0,
@@ -3183,6 +3191,7 @@
        unsafe_to_char,
        equal,
        compare,
+       seeded_hash,
        hash,
        utf_decode_is_valid,
        utf_decode_uchar,
@@ -3300,6 +3309,8 @@
     cst_List_fold_right2 = "List.fold_right2",
     cst_List_for_all2 = "List.for_all2",
     cst_List_exists2 = "List.exists2",
+    cst_List_take = "List.take",
+    cst_List_drop = "List.drop",
     _a_ = [0, 0, 0],
     cst_List_combine = "List.combine";
    function rev_append(l1, l2){
@@ -4054,117 +4065,203 @@
       param$0 = xs;
     }
    }
+   function take(n, l){
+     /*<<list.ml:293:2>>*/ if(n < 0)
+      /*<<list.ml:298:16>>*/  /*<<list.ml:298:16>>*/ caml_call1
+      (Stdlib[1], cst_List_take);
+    if(0 !== n && l){
+      /*<<list.ml:296:17>>*/ var
+      l$0 = l[2],
+      x = l[1],
+       /*<<list.ml:296:17>>*/ block = [0, x, 24029],
+       /*<<list.ml:293:2>>*/ n$0 = n - 1 | 0,
+      dst = block,
+      offset = 1,
+      n$1 = n$0,
+      l$1 = l$0;
+      /*<<list.ml:294:4>>*/ for(;;){
+      if(0 !== n$1 && l$1){
+        /*<<list.ml:296:17>>*/ var
+        l$2 = l$1[2],
+        x$0 = l$1[1],
+         /*<<list.ml:296:17>>*/ dst$0 = [0, x$0, 24029];
+       dst[1 + offset] = dst$0;
+        /*<<list.ml:293:2>>*/  /*<<list.ml:293:2>>*/ var n$2 = n$1 - 1 | 0;
+       dst = dst$0;
+       offset = 1;
+       n$1 = n$2;
+       l$1 = l$2;
+       continue;
+      }
+      dst[1 + offset] = 0;
+       /*<<list.ml:296:20>>*/ return block;
+     }
+    }
+     /*<<list.ml:295:22>>*/ return 0;
+    /*<<list.ml:299:9>>*/ }
+   function drop(n, rest){
+     /*<<list.ml:302:2>>*/ if(n < 0)
+      /*<<list.ml:306:16>>*/  /*<<list.ml:306:16>>*/ caml_call1
+      (Stdlib[1], cst_List_drop);
+    var i = 0, rest$0 = rest;
+    for(;;){
+     if(rest$0){
+      var rest$1 = rest$0[2];
+      if(i < n){var i$0 = i + 1 | 0; i = i$0; rest$0 = rest$1; continue;}
+     }
+      /*<<list.ml:304:14>>*/ return rest$0;
+    }
+    /*<<list.ml:307:9>>*/ }
+   function take_while(p, rest){
+     /*<<list.ml:310:2>>*/ if(rest){
+     var rest$0 = rest[2], x = rest[1];
+      /*<<list.ml:311:16>>*/ if( /*<<list.ml:311:16>>*/ caml_call1(p, x)){
+       /*<<list.ml:311:23>>*/ var
+        /*<<list.ml:311:23>>*/ block = [0, x, 24029],
+       dst = block,
+       offset = 1,
+       rest$1 = rest$0;
+       /*<<list.ml:310:32>>*/ for(;;){
+       if(rest$1){
+        var rest$2 = rest$1[2], x$0 = rest$1[1];
+         /*<<list.ml:311:16>>*/ if( /*<<list.ml:311:16>>*/ caml_call1(p, x$0)){
+          /*<<list.ml:311:23>>*/  /*<<list.ml:311:23>>*/ var
+          dst$0 = [0, x$0, 24029];
+         dst[1 + offset] = dst$0;
+         dst = dst$0;
+         offset = 1;
+         rest$1 = rest$2;
+         continue;
+        }
+       }
+       dst[1 + offset] = 0;
+        /*<<list.ml:311:26>>*/ return block;
+      }
+     }
+    }
+     /*<<list.ml:312:15>>*/ return 0;
+    /*<<list.ml:314:7>>*/ }
+   function drop_while(p, rest){
+    var rest$0 = rest;
+    for(;;){
+     if(rest$0){
+      var rest$1 = rest$0[2], x = rest$0[1];
+       /*<<list.ml:317:14>>*/ if( /*<<list.ml:317:14>>*/ caml_call1(p, x)){rest$0 = rest$1; continue;}
+     }
+      /*<<list.ml:318:12>>*/ return rest$0;
+    }
+   }
    function fold_left_map(f, accu, l){
-     /*<<list.ml:293:2>>*/ var accu$0 = accu, l_accu = 0, param = l;
+     /*<<list.ml:321:2>>*/ var accu$0 = accu, l_accu = 0, param = l;
     for(;;){
-     if(! param)  /*<<list.ml:294:12>>*/ return [0, accu$0, rev(l_accu)];
-      /*<<list.ml:296:22>>*/ var
+     if(! param)  /*<<list.ml:322:12>>*/ return [0, accu$0, rev(l_accu)];
+      /*<<list.ml:324:22>>*/ var
       l$0 = param[2],
       x = param[1],
-       /*<<list.ml:296:22>>*/ match =
-         /*<<list.ml:296:22>>*/ caml_call2(f, accu$0, x),
+       /*<<list.ml:324:22>>*/ match =
+         /*<<list.ml:324:22>>*/ caml_call2(f, accu$0, x),
       x$0 = match[2],
       accu$1 = match[1],
-       /*<<list.ml:297:17>>*/ l_accu$0 = [0, x$0, l_accu];
+       /*<<list.ml:325:17>>*/ l_accu$0 = [0, x$0, l_accu];
      accu$0 = accu$1;
      l_accu = l_accu$0;
      param = l$0;
     }
-    /*<<list.ml:298:15>>*/ }
+    /*<<list.ml:326:15>>*/ }
    function partition(p, l){
-     /*<<list.ml:301:2>>*/ var yes = 0, no = 0, param = l;
+     /*<<list.ml:329:2>>*/ var yes = 0, no = 0, param = l;
     for(;;){
      if(! param){
-       /*<<list.ml:302:20>>*/  /*<<list.ml:302:20>>*/ var _x_ = rev(no);
-       /*<<list.ml:302:10>>*/ return [0, rev(yes), _x_];
+       /*<<list.ml:330:20>>*/  /*<<list.ml:330:20>>*/ var _x_ = rev(no);
+       /*<<list.ml:330:10>>*/ return [0, rev(yes), _x_];
      }
      var l$0 = param[2], x = param[1];
-      /*<<list.ml:303:17>>*/ if( /*<<list.ml:303:17>>*/ caml_call1(p, x)){
-       /*<<list.ml:303:31>>*/  /*<<list.ml:303:31>>*/ var yes$0 = [0, x, yes];
+      /*<<list.ml:331:17>>*/ if( /*<<list.ml:331:17>>*/ caml_call1(p, x)){
+       /*<<list.ml:331:31>>*/  /*<<list.ml:331:31>>*/ var yes$0 = [0, x, yes];
       yes = yes$0;
       param = l$0;
      }
      else{
-       /*<<list.ml:303:61>>*/  /*<<list.ml:303:61>>*/ var no$0 = [0, x, no];
+       /*<<list.ml:331:61>>*/  /*<<list.ml:331:61>>*/ var no$0 = [0, x, no];
       no = no$0;
       param = l$0;
      }
     }
-    /*<<list.ml:304:14>>*/ }
+    /*<<list.ml:332:14>>*/ }
    function partition_map(p, l){
-     /*<<list.ml:307:2>>*/ var left = 0, right = 0, param = l;
+     /*<<list.ml:335:2>>*/ var left = 0, right = 0, param = l;
     for(;;){
      if(! param){
-       /*<<list.ml:308:21>>*/  /*<<list.ml:308:21>>*/ var _w_ = rev(right);
-       /*<<list.ml:308:10>>*/ return [0, rev(left), _w_];
+       /*<<list.ml:336:21>>*/  /*<<list.ml:336:21>>*/ var _w_ = rev(right);
+       /*<<list.ml:336:10>>*/ return [0, rev(left), _w_];
      }
-      /*<<list.ml:310:17>>*/ var
+      /*<<list.ml:338:17>>*/ var
       l$0 = param[2],
       x = param[1],
-       /*<<list.ml:310:17>>*/ match =  /*<<list.ml:310:17>>*/ caml_call1(p, x);
+       /*<<list.ml:338:17>>*/ match =  /*<<list.ml:338:17>>*/ caml_call1(p, x);
      if(0 === match[0]){
-       /*<<list.ml:311:31>>*/ var
+       /*<<list.ml:339:31>>*/ var
        v = match[1],
-        /*<<list.ml:311:31>>*/ left$0 = [0, v, left];
+        /*<<list.ml:339:31>>*/ left$0 = [0, v, left];
       left = left$0;
       param = l$0;
      }
      else{
-       /*<<list.ml:312:37>>*/ var
+       /*<<list.ml:340:37>>*/ var
        v$0 = match[1],
-        /*<<list.ml:312:37>>*/ right$0 = [0, v$0, right];
+        /*<<list.ml:340:37>>*/ right$0 = [0, v$0, right];
       right = right$0;
       param = l$0;
      }
     }
-    /*<<list.ml:315:14>>*/ }
+    /*<<list.ml:343:14>>*/ }
    function split(param){
-     /*<<list.ml:317:16>>*/ if(! param)  /*<<list.ml:318:10>>*/ return _a_;
-     /*<<list.ml:320:21>>*/ var
+     /*<<list.ml:345:16>>*/ if(! param)  /*<<list.ml:346:10>>*/ return _a_;
+     /*<<list.ml:348:21>>*/ var
      l = param[2],
      match = param[1],
      y = match[2],
      x = match[1],
-      /*<<list.ml:320:21>>*/ match$0 = split(l),
+      /*<<list.ml:348:21>>*/ match$0 = split(l),
      ry = match$0[2],
      rx = match$0[1];
-     /*<<list.ml:320:32>>*/ return [0, [0, x, rx], [0, y, ry]];
-    /*<<list.ml:320:46>>*/ }
+     /*<<list.ml:348:32>>*/ return [0, [0, x, rx], [0, y, ry]];
+    /*<<list.ml:348:46>>*/ }
    function combine(l1, l2){
-     /*<<list.ml:323:2>>*/ if(l1){
+     /*<<list.ml:351:2>>*/ if(l1){
      if(l2){
       var l2$0 = l2[2], a2 = l2[1], l1$0 = l1[2], a1 = l1[1];
-       /*<<list.ml:325:24>>*/ return [0, [0, a1, a2], combine(l1$0, l2$0)];
+       /*<<list.ml:353:24>>*/ return [0, [0, a1, a2], combine(l1$0, l2$0)];
      }
     }
-    else if(! l2)  /*<<list.ml:324:16>>*/ return 0;
-     /*<<list.ml:326:14>>*/ return  /*<<list.ml:326:14>>*/ caml_call1
+    else if(! l2)  /*<<list.ml:352:16>>*/ return 0;
+     /*<<list.ml:354:14>>*/ return  /*<<list.ml:354:14>>*/ caml_call1
             (Stdlib[1], cst_List_combine);
-    /*<<list.ml:326:40>>*/ }
+    /*<<list.ml:354:40>>*/ }
    function merge(cmp, l1, l2){
-     /*<<list.ml:331:2>>*/ if(! l1)  /*<<list.ml:332:14>>*/ return l2;
-    if(! l2)  /*<<list.ml:333:14>>*/ return l1;
+     /*<<list.ml:359:2>>*/ if(! l1)  /*<<list.ml:360:14>>*/ return l2;
+    if(! l2)  /*<<list.ml:361:14>>*/ return l1;
     var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-     /*<<list.ml:335:9>>*/ return 0
-            <  /*<<list.ml:335:9>>*/ caml_call2(cmp, h1, h2)
+     /*<<list.ml:363:9>>*/ return 0
+            <  /*<<list.ml:363:9>>*/ caml_call2(cmp, h1, h2)
             ? [0, h2, merge(cmp, l1, t2)]
             : [0, h1, merge(cmp, t1, l2)];
-    /*<<list.ml:337:32>>*/ }
+    /*<<list.ml:365:32>>*/ }
    function stable_sort(cmp, l){
     function sort(n, l){
-      /*<<list.ml:360:4>>*/ if(2 === n){
+      /*<<list.ml:388:4>>*/ if(2 === n){
       if(l){
        var match = l[2];
        if(match){
-         /*<<list.ml:362:19>>*/ var
+         /*<<list.ml:390:19>>*/ var
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
-          /*<<list.ml:362:19>>*/ s =
-           0 <  /*<<list.ml:362:19>>*/ caml_call2(cmp, x1, x2)
+          /*<<list.ml:390:19>>*/ s =
+           0 <  /*<<list.ml:390:19>>*/ caml_call2(cmp, x1, x2)
             ? [0, x2, [0, x1, 0]]
             : [0, x1, [0, x2, 0]];
-         /*<<list.ml:363:8>>*/ return [0, s, tl];
+         /*<<list.ml:391:8>>*/ return [0, s, tl];
        }
       }
      }
@@ -4173,56 +4270,56 @@
       if(_v_){
        var match$2 = _v_[2];
        if(match$2){
-         /*<<list.ml:366:13>>*/ var
+         /*<<list.ml:394:13>>*/ var
          tl$1 = match$2[2],
          x3 = match$2[1],
          x2$0 = _v_[1],
          x1$0 = l[1],
-          /*<<list.ml:366:13>>*/ s$0 =
-           0 <  /*<<list.ml:366:13>>*/ caml_call2(cmp, x1$0, x2$0)
+          /*<<list.ml:394:13>>*/ s$0 =
+           0 <  /*<<list.ml:394:13>>*/ caml_call2(cmp, x1$0, x2$0)
             ? 0
-              <  /*<<list.ml:370:18>>*/ caml_call2(cmp, x1$0, x3)
+              <  /*<<list.ml:398:18>>*/ caml_call2(cmp, x1$0, x3)
               ? 0
-                <  /*<<list.ml:371:18>>*/ caml_call2(cmp, x2$0, x3)
+                <  /*<<list.ml:399:18>>*/ caml_call2(cmp, x2$0, x3)
                 ? [0, x3, [0, x2$0, [0, x1$0, 0]]]
                 : [0, x2$0, [0, x3, [0, x1$0, 0]]]
               : [0, x2$0, [0, x1$0, [0, x3, 0]]]
             : 0
-              <  /*<<list.ml:367:15>>*/ caml_call2(cmp, x2$0, x3)
+              <  /*<<list.ml:395:15>>*/ caml_call2(cmp, x2$0, x3)
               ? 0
-                <  /*<<list.ml:368:20>>*/ caml_call2(cmp, x1$0, x3)
+                <  /*<<list.ml:396:20>>*/ caml_call2(cmp, x1$0, x3)
                 ? [0, x3, [0, x1$0, [0, x2$0, 0]]]
                 : [0, x1$0, [0, x3, [0, x2$0, 0]]]
               : [0, x1$0, [0, x2$0, [0, x3, 0]]];
-         /*<<list.ml:374:8>>*/ return [0, s$0, tl$1];
+         /*<<list.ml:402:8>>*/ return [0, s$0, tl$1];
        }
       }
      }
-      /*<<list.ml:378:21>>*/ var
+      /*<<list.ml:406:21>>*/ var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-       /*<<list.ml:378:21>>*/ match$0 = rev_sort(n1, l),
+       /*<<list.ml:406:21>>*/ match$0 = rev_sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-       /*<<list.ml:379:21>>*/ match$1 = rev_sort(n2, l2$0),
+       /*<<list.ml:407:21>>*/ match$1 = rev_sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
       l2 = s2,
       accu = 0;
-      /*<<list.ml:351:4>>*/ for(;;){
+      /*<<list.ml:379:4>>*/ for(;;){
       if(l1){
        if(l2){
         var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-         /*<<list.ml:355:11>>*/ if
-         (0 <  /*<<list.ml:355:11>>*/ caml_call2(cmp, h1, h2)){
-          /*<<list.ml:356:33>>*/  /*<<list.ml:356:33>>*/ var
+         /*<<list.ml:383:11>>*/ if
+         (0 <  /*<<list.ml:383:11>>*/ caml_call2(cmp, h1, h2)){
+          /*<<list.ml:384:33>>*/  /*<<list.ml:384:33>>*/ var
           accu$0 = [0, h1, accu];
          l1 = t1;
          accu = accu$0;
          continue;
         }
-         /*<<list.ml:357:33>>*/  /*<<list.ml:357:33>>*/ var
+         /*<<list.ml:385:33>>*/  /*<<list.ml:385:33>>*/ var
          accu$1 = [0, h2, accu];
         l2 = t2;
         accu = accu$1;
@@ -4232,23 +4329,23 @@
       }
       else
        var _u_ = rev_append(l2, accu);
-       /*<<list.ml:380:8>>*/ return [0, _u_, tl$0];
+       /*<<list.ml:408:8>>*/ return [0, _u_, tl$0];
      }
-     /*<<list.ml:380:36>>*/ }
+     /*<<list.ml:408:36>>*/ }
     function rev_sort(n, l){
-      /*<<list.ml:382:4>>*/ if(2 === n){
+      /*<<list.ml:410:4>>*/ if(2 === n){
       if(l){
        var match = l[2];
        if(match){
-         /*<<list.ml:384:19>>*/ var
+         /*<<list.ml:412:19>>*/ var
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
-          /*<<list.ml:384:19>>*/ s =
-           0 <  /*<<list.ml:384:19>>*/ caml_call2(cmp, x1, x2)
+          /*<<list.ml:412:19>>*/ s =
+           0 <  /*<<list.ml:412:19>>*/ caml_call2(cmp, x1, x2)
             ? [0, x1, [0, x2, 0]]
             : [0, x2, [0, x1, 0]];
-         /*<<list.ml:385:8>>*/ return [0, s, tl];
+         /*<<list.ml:413:8>>*/ return [0, s, tl];
        }
       }
      }
@@ -4257,56 +4354,56 @@
       if(_t_){
        var match$2 = _t_[2];
        if(match$2){
-         /*<<list.ml:388:13>>*/ var
+         /*<<list.ml:416:13>>*/ var
          tl$1 = match$2[2],
          x3 = match$2[1],
          x2$0 = _t_[1],
          x1$0 = l[1],
-          /*<<list.ml:388:13>>*/ s$0 =
-           0 <  /*<<list.ml:388:13>>*/ caml_call2(cmp, x1$0, x2$0)
+          /*<<list.ml:416:13>>*/ s$0 =
+           0 <  /*<<list.ml:416:13>>*/ caml_call2(cmp, x1$0, x2$0)
             ? 0
-              <  /*<<list.ml:389:15>>*/ caml_call2(cmp, x2$0, x3)
+              <  /*<<list.ml:417:15>>*/ caml_call2(cmp, x2$0, x3)
               ? [0, x1$0, [0, x2$0, [0, x3, 0]]]
               : 0
-                <  /*<<list.ml:390:20>>*/ caml_call2(cmp, x1$0, x3)
+                <  /*<<list.ml:418:20>>*/ caml_call2(cmp, x1$0, x3)
                 ? [0, x1$0, [0, x3, [0, x2$0, 0]]]
                 : [0, x3, [0, x1$0, [0, x2$0, 0]]]
             : 0
-              <  /*<<list.ml:392:18>>*/ caml_call2(cmp, x1$0, x3)
+              <  /*<<list.ml:420:18>>*/ caml_call2(cmp, x1$0, x3)
               ? [0, x2$0, [0, x1$0, [0, x3, 0]]]
               : 0
-                <  /*<<list.ml:393:18>>*/ caml_call2(cmp, x2$0, x3)
+                <  /*<<list.ml:421:18>>*/ caml_call2(cmp, x2$0, x3)
                 ? [0, x2$0, [0, x3, [0, x1$0, 0]]]
                 : [0, x3, [0, x2$0, [0, x1$0, 0]]];
-         /*<<list.ml:396:8>>*/ return [0, s$0, tl$1];
+         /*<<list.ml:424:8>>*/ return [0, s$0, tl$1];
        }
       }
      }
-      /*<<list.ml:400:21>>*/ var
+      /*<<list.ml:428:21>>*/ var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-       /*<<list.ml:400:21>>*/ match$0 = sort(n1, l),
+       /*<<list.ml:428:21>>*/ match$0 = sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-       /*<<list.ml:401:21>>*/ match$1 = sort(n2, l2$0),
+       /*<<list.ml:429:21>>*/ match$1 = sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
       l2 = s2,
       accu = 0;
-      /*<<list.ml:342:4>>*/ for(;;){
+      /*<<list.ml:370:4>>*/ for(;;){
       if(l1){
        if(l2){
         var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-         /*<<list.ml:346:11>>*/ if
-         (0 <  /*<<list.ml:346:11>>*/ caml_call2(cmp, h1, h2)){
-          /*<<list.ml:348:29>>*/  /*<<list.ml:348:29>>*/ var
+         /*<<list.ml:374:11>>*/ if
+         (0 <  /*<<list.ml:374:11>>*/ caml_call2(cmp, h1, h2)){
+          /*<<list.ml:376:29>>*/  /*<<list.ml:376:29>>*/ var
           accu$0 = [0, h2, accu];
          l2 = t2;
          accu = accu$0;
          continue;
         }
-         /*<<list.ml:347:29>>*/  /*<<list.ml:347:29>>*/ var
+         /*<<list.ml:375:29>>*/  /*<<list.ml:375:29>>*/ var
          accu$1 = [0, h1, accu];
         l1 = t1;
         accu = accu$1;
@@ -4316,29 +4413,29 @@
       }
       else
        var _s_ = rev_append(l2, accu);
-       /*<<list.ml:402:8>>*/ return [0, _s_, tl$0];
+       /*<<list.ml:430:8>>*/ return [0, _s_, tl$0];
      }
-     /*<<list.ml:402:32>>*/ }
-     /*<<list.ml:404:12>>*/  /*<<list.ml:404:12>>*/ var len = length(l);
-     /*<<list.ml:405:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
-    /*<<list.ml:405:41>>*/ }
+     /*<<list.ml:430:32>>*/ }
+     /*<<list.ml:432:12>>*/  /*<<list.ml:432:12>>*/ var len = length(l);
+     /*<<list.ml:433:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
+    /*<<list.ml:433:41>>*/ }
    function sort_uniq(cmp, l){
     function sort(n, l){
-      /*<<list.ml:443:4>>*/ if(2 === n){
+      /*<<list.ml:471:4>>*/ if(2 === n){
       if(l){
        var match = l[2];
        if(match){
-         /*<<list.ml:446:18>>*/ var
+         /*<<list.ml:474:18>>*/ var
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
-          /*<<list.ml:446:18>>*/ c$0 =
-            /*<<list.ml:446:18>>*/ caml_call2(cmp, x1, x2),
-          /*<<list.ml:447:10>>*/ s =
+          /*<<list.ml:474:18>>*/ c$0 =
+            /*<<list.ml:474:18>>*/ caml_call2(cmp, x1, x2),
+          /*<<list.ml:475:10>>*/ s =
            0 === c$0
             ? [0, x1, 0]
             : 0 <= c$0 ? [0, x2, [0, x1, 0]] : [0, x1, [0, x2, 0]];
-         /*<<list.ml:449:8>>*/ return [0, s, tl];
+         /*<<list.ml:477:8>>*/ return [0, s, tl];
        }
       }
      }
@@ -4347,32 +4444,32 @@
       if(_m_){
        var match$2 = _m_[2];
        if(match$2){
-         /*<<list.ml:452:18>>*/ var
+         /*<<list.ml:480:18>>*/ var
          tl$1 = match$2[2],
          x3 = match$2[1],
          x2$0 = _m_[1],
          x1$0 = l[1],
-          /*<<list.ml:452:18>>*/ c$1 =
-            /*<<list.ml:452:18>>*/ caml_call2(cmp, x1$0, x2$0);
-         /*<<list.ml:453:10>>*/ if(0 === c$1)
-          /*<<list.ml:454:20>>*/ var
-           /*<<list.ml:454:20>>*/ c$2 =
-             /*<<list.ml:454:20>>*/ caml_call2(cmp, x2$0, x3),
-           /*<<list.ml:455:12>>*/ _n_ =
+          /*<<list.ml:480:18>>*/ c$1 =
+            /*<<list.ml:480:18>>*/ caml_call2(cmp, x1$0, x2$0);
+         /*<<list.ml:481:10>>*/ if(0 === c$1)
+          /*<<list.ml:482:20>>*/ var
+           /*<<list.ml:482:20>>*/ c$2 =
+             /*<<list.ml:482:20>>*/ caml_call2(cmp, x2$0, x3),
+           /*<<list.ml:483:12>>*/ _n_ =
             0 === c$2
              ? [0, x2$0, 0]
              : 0 <= c$2 ? [0, x3, [0, x2$0, 0]] : [0, x2$0, [0, x3, 0]],
           s$0 = _n_;
         else if(0 <= c$1){
-          /*<<list.ml:466:20>>*/  /*<<list.ml:466:20>>*/ var
-          c$3 =  /*<<list.ml:466:20>>*/ caml_call2(cmp, x1$0, x3);
-          /*<<list.ml:467:12>>*/ if(0 === c$3)
+          /*<<list.ml:494:20>>*/  /*<<list.ml:494:20>>*/ var
+          c$3 =  /*<<list.ml:494:20>>*/ caml_call2(cmp, x1$0, x3);
+          /*<<list.ml:495:12>>*/ if(0 === c$3)
           var _o_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 <= c$3)
-           /*<<list.ml:470:22>>*/ var
-            /*<<list.ml:470:22>>*/ c$4 =
-              /*<<list.ml:470:22>>*/ caml_call2(cmp, x2$0, x3),
-            /*<<list.ml:471:14>>*/ _p_ =
+           /*<<list.ml:498:22>>*/ var
+            /*<<list.ml:498:22>>*/ c$4 =
+              /*<<list.ml:498:22>>*/ caml_call2(cmp, x2$0, x3),
+            /*<<list.ml:499:14>>*/ _p_ =
              0 === c$4
               ? [0, x2$0, [0, x1$0, 0]]
               : 0
@@ -4385,15 +4482,15 @@
          var s$0 = _o_;
         }
         else{
-          /*<<list.ml:457:20>>*/  /*<<list.ml:457:20>>*/ var
-          c$5 =  /*<<list.ml:457:20>>*/ caml_call2(cmp, x2$0, x3);
-          /*<<list.ml:458:12>>*/ if(0 === c$5)
+          /*<<list.ml:485:20>>*/  /*<<list.ml:485:20>>*/ var
+          c$5 =  /*<<list.ml:485:20>>*/ caml_call2(cmp, x2$0, x3);
+          /*<<list.ml:486:12>>*/ if(0 === c$5)
           var _q_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 <= c$5)
-           /*<<list.ml:461:22>>*/ var
-            /*<<list.ml:461:22>>*/ c$6 =
-              /*<<list.ml:461:22>>*/ caml_call2(cmp, x1$0, x3),
-            /*<<list.ml:462:14>>*/ _r_ =
+           /*<<list.ml:489:22>>*/ var
+            /*<<list.ml:489:22>>*/ c$6 =
+              /*<<list.ml:489:22>>*/ caml_call2(cmp, x1$0, x3),
+            /*<<list.ml:490:14>>*/ _r_ =
              0 === c$6
               ? [0, x1$0, [0, x2$0, 0]]
               : 0
@@ -4405,34 +4502,34 @@
           var _q_ = [0, x1$0, [0, x2$0, [0, x3, 0]]];
          var s$0 = _q_;
         }
-         /*<<list.ml:475:8>>*/ return [0, s$0, tl$1];
+         /*<<list.ml:503:8>>*/ return [0, s$0, tl$1];
        }
       }
      }
-      /*<<list.ml:479:21>>*/ var
+      /*<<list.ml:507:21>>*/ var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-       /*<<list.ml:479:21>>*/ match$0 = rev_sort(n1, l),
+       /*<<list.ml:507:21>>*/ match$0 = rev_sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-       /*<<list.ml:480:21>>*/ match$1 = rev_sort(n2, l2$0),
+       /*<<list.ml:508:21>>*/ match$1 = rev_sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
       l2 = s2,
       accu = 0;
-      /*<<list.ml:432:4>>*/ for(;;){
+      /*<<list.ml:460:4>>*/ for(;;){
       if(l1){
        if(l2){
-         /*<<list.ml:436:16>>*/ var
+         /*<<list.ml:464:16>>*/ var
          t2 = l2[2],
          h2 = l2[1],
          t1 = l1[2],
          h1 = l1[1],
-          /*<<list.ml:436:16>>*/ c =
-            /*<<list.ml:436:16>>*/ caml_call2(cmp, h1, h2);
-         /*<<list.ml:437:8>>*/ if(0 === c){
-          /*<<list.ml:437:42>>*/  /*<<list.ml:437:42>>*/ var
+          /*<<list.ml:464:16>>*/ c =
+            /*<<list.ml:464:16>>*/ caml_call2(cmp, h1, h2);
+         /*<<list.ml:465:8>>*/ if(0 === c){
+          /*<<list.ml:465:42>>*/  /*<<list.ml:465:42>>*/ var
           accu$0 = [0, h1, accu];
          l1 = t1;
          l2 = t2;
@@ -4440,13 +4537,13 @@
          continue;
         }
         if(0 < c){
-          /*<<list.ml:439:33>>*/  /*<<list.ml:439:33>>*/ var
+          /*<<list.ml:467:33>>*/  /*<<list.ml:467:33>>*/ var
           accu$1 = [0, h1, accu];
          l1 = t1;
          accu = accu$1;
          continue;
         }
-         /*<<list.ml:440:33>>*/  /*<<list.ml:440:33>>*/ var
+         /*<<list.ml:468:33>>*/  /*<<list.ml:468:33>>*/ var
          accu$2 = [0, h2, accu];
         l2 = t2;
         accu = accu$2;
@@ -4456,25 +4553,25 @@
       }
       else
        var _l_ = rev_append(l2, accu);
-       /*<<list.ml:481:8>>*/ return [0, _l_, tl$0];
+       /*<<list.ml:509:8>>*/ return [0, _l_, tl$0];
      }
-     /*<<list.ml:481:36>>*/ }
+     /*<<list.ml:509:36>>*/ }
     function rev_sort(n, l){
-      /*<<list.ml:483:4>>*/ if(2 === n){
+      /*<<list.ml:511:4>>*/ if(2 === n){
       if(l){
        var match = l[2];
        if(match){
-         /*<<list.ml:486:18>>*/ var
+         /*<<list.ml:514:18>>*/ var
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
-          /*<<list.ml:486:18>>*/ c$0 =
-            /*<<list.ml:486:18>>*/ caml_call2(cmp, x1, x2),
-          /*<<list.ml:487:10>>*/ s =
+          /*<<list.ml:514:18>>*/ c$0 =
+            /*<<list.ml:514:18>>*/ caml_call2(cmp, x1, x2),
+          /*<<list.ml:515:10>>*/ s =
            0 === c$0
             ? [0, x1, 0]
             : 0 < c$0 ? [0, x1, [0, x2, 0]] : [0, x2, [0, x1, 0]];
-         /*<<list.ml:489:8>>*/ return [0, s, tl];
+         /*<<list.ml:517:8>>*/ return [0, s, tl];
        }
       }
      }
@@ -4483,34 +4580,34 @@
       if(_f_){
        var match$2 = _f_[2];
        if(match$2){
-         /*<<list.ml:492:18>>*/ var
+         /*<<list.ml:520:18>>*/ var
          tl$1 = match$2[2],
          x3 = match$2[1],
          x2$0 = _f_[1],
          x1$0 = l[1],
-          /*<<list.ml:492:18>>*/ c$1 =
-            /*<<list.ml:492:18>>*/ caml_call2(cmp, x1$0, x2$0);
-         /*<<list.ml:493:10>>*/ if(0 === c$1)
-          /*<<list.ml:494:20>>*/ var
-           /*<<list.ml:494:20>>*/ c$2 =
-             /*<<list.ml:494:20>>*/ caml_call2(cmp, x2$0, x3),
-           /*<<list.ml:495:12>>*/ _g_ =
+          /*<<list.ml:520:18>>*/ c$1 =
+            /*<<list.ml:520:18>>*/ caml_call2(cmp, x1$0, x2$0);
+         /*<<list.ml:521:10>>*/ if(0 === c$1)
+          /*<<list.ml:522:20>>*/ var
+           /*<<list.ml:522:20>>*/ c$2 =
+             /*<<list.ml:522:20>>*/ caml_call2(cmp, x2$0, x3),
+           /*<<list.ml:523:12>>*/ _g_ =
             0 === c$2
              ? [0, x2$0, 0]
              : 0 < c$2 ? [0, x2$0, [0, x3, 0]] : [0, x3, [0, x2$0, 0]],
           s$0 = _g_;
         else if(0 < c$1){
-          /*<<list.ml:497:20>>*/  /*<<list.ml:497:20>>*/ var
-          c$3 =  /*<<list.ml:497:20>>*/ caml_call2(cmp, x2$0, x3);
-          /*<<list.ml:498:12>>*/ if(0 === c$3)
+          /*<<list.ml:525:20>>*/  /*<<list.ml:525:20>>*/ var
+          c$3 =  /*<<list.ml:525:20>>*/ caml_call2(cmp, x2$0, x3);
+          /*<<list.ml:526:12>>*/ if(0 === c$3)
           var _h_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 < c$3)
           var _h_ = [0, x1$0, [0, x2$0, [0, x3, 0]]];
          else
-           /*<<list.ml:501:22>>*/ var
-            /*<<list.ml:501:22>>*/ c$4 =
-              /*<<list.ml:501:22>>*/ caml_call2(cmp, x1$0, x3),
-            /*<<list.ml:502:14>>*/ _i_ =
+           /*<<list.ml:529:22>>*/ var
+            /*<<list.ml:529:22>>*/ c$4 =
+              /*<<list.ml:529:22>>*/ caml_call2(cmp, x1$0, x3),
+            /*<<list.ml:530:14>>*/ _i_ =
              0 === c$4
               ? [0, x1$0, [0, x2$0, 0]]
               : 0
@@ -4521,17 +4618,17 @@
          var s$0 = _h_;
         }
         else{
-          /*<<list.ml:506:20>>*/  /*<<list.ml:506:20>>*/ var
-          c$5 =  /*<<list.ml:506:20>>*/ caml_call2(cmp, x1$0, x3);
-          /*<<list.ml:507:12>>*/ if(0 === c$5)
+          /*<<list.ml:534:20>>*/  /*<<list.ml:534:20>>*/ var
+          c$5 =  /*<<list.ml:534:20>>*/ caml_call2(cmp, x1$0, x3);
+          /*<<list.ml:535:12>>*/ if(0 === c$5)
           var _j_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 < c$5)
           var _j_ = [0, x2$0, [0, x1$0, [0, x3, 0]]];
          else
-           /*<<list.ml:510:22>>*/ var
-            /*<<list.ml:510:22>>*/ c$6 =
-              /*<<list.ml:510:22>>*/ caml_call2(cmp, x2$0, x3),
-            /*<<list.ml:511:14>>*/ _k_ =
+           /*<<list.ml:538:22>>*/ var
+            /*<<list.ml:538:22>>*/ c$6 =
+              /*<<list.ml:538:22>>*/ caml_call2(cmp, x2$0, x3),
+            /*<<list.ml:539:14>>*/ _k_ =
              0 === c$6
               ? [0, x2$0, [0, x1$0, 0]]
               : 0
@@ -4541,34 +4638,34 @@
            _j_ = _k_;
          var s$0 = _j_;
         }
-         /*<<list.ml:515:8>>*/ return [0, s$0, tl$1];
+         /*<<list.ml:543:8>>*/ return [0, s$0, tl$1];
        }
       }
      }
-      /*<<list.ml:519:21>>*/ var
+      /*<<list.ml:547:21>>*/ var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-       /*<<list.ml:519:21>>*/ match$0 = sort(n1, l),
+       /*<<list.ml:547:21>>*/ match$0 = sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-       /*<<list.ml:520:21>>*/ match$1 = sort(n2, l2$0),
+       /*<<list.ml:548:21>>*/ match$1 = sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
       l2 = s2,
       accu = 0;
-      /*<<list.ml:421:4>>*/ for(;;){
+      /*<<list.ml:449:4>>*/ for(;;){
       if(l1){
        if(l2){
-         /*<<list.ml:425:16>>*/ var
+         /*<<list.ml:453:16>>*/ var
          t2 = l2[2],
          h2 = l2[1],
          t1 = l1[2],
          h1 = l1[1],
-          /*<<list.ml:425:16>>*/ c =
-            /*<<list.ml:425:16>>*/ caml_call2(cmp, h1, h2);
-         /*<<list.ml:426:8>>*/ if(0 === c){
-          /*<<list.ml:426:38>>*/  /*<<list.ml:426:38>>*/ var
+          /*<<list.ml:453:16>>*/ c =
+            /*<<list.ml:453:16>>*/ caml_call2(cmp, h1, h2);
+         /*<<list.ml:454:8>>*/ if(0 === c){
+          /*<<list.ml:454:38>>*/  /*<<list.ml:454:38>>*/ var
           accu$0 = [0, h1, accu];
          l1 = t1;
          l2 = t2;
@@ -4576,13 +4673,13 @@
          continue;
         }
         if(0 <= c){
-          /*<<list.ml:429:29>>*/  /*<<list.ml:429:29>>*/ var
+          /*<<list.ml:457:29>>*/  /*<<list.ml:457:29>>*/ var
           accu$1 = [0, h2, accu];
          l2 = t2;
          accu = accu$1;
          continue;
         }
-         /*<<list.ml:428:29>>*/  /*<<list.ml:428:29>>*/ var
+         /*<<list.ml:456:29>>*/  /*<<list.ml:456:29>>*/ var
          accu$2 = [0, h1, accu];
         l1 = t1;
         accu = accu$2;
@@ -4592,116 +4689,116 @@
       }
       else
        var _e_ = rev_append(l2, accu);
-       /*<<list.ml:521:8>>*/ return [0, _e_, tl$0];
+       /*<<list.ml:549:8>>*/ return [0, _e_, tl$0];
      }
-     /*<<list.ml:521:32>>*/ }
-     /*<<list.ml:523:12>>*/  /*<<list.ml:523:12>>*/ var len = length(l);
-     /*<<list.ml:524:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
-    /*<<list.ml:524:41>>*/ }
+     /*<<list.ml:549:32>>*/ }
+     /*<<list.ml:551:12>>*/  /*<<list.ml:551:12>>*/ var len = length(l);
+     /*<<list.ml:552:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
+    /*<<list.ml:552:41>>*/ }
    function compare_lengths(l1, l2){
-     /*<<list.ml:528:2>>*/ var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:528:2>>*/ for(;;){
+     /*<<list.ml:556:2>>*/ var l1$0 = l1, l2$0 = l2;
+     /*<<list.ml:556:2>>*/ for(;;){
      if(! l1$0) return l2$0 ? -1 : 0;
-     if(! l2$0)  /*<<list.ml:531:13>>*/ return 1;
+     if(! l2$0)  /*<<list.ml:559:13>>*/ return 1;
      var l2$1 = l2$0[2], l1$1 = l1$0[2];
      l1$0 = l1$1;
      l2$0 = l2$1;
     }
-    /*<<list.ml:532:45>>*/ }
+    /*<<list.ml:560:45>>*/ }
    function compare_length_with(l, n){
-     /*<<list.ml:535:2>>*/ var l$0 = l, n$0 = n;
-     /*<<list.ml:535:2>>*/ for(;;){
+     /*<<list.ml:563:2>>*/ var l$0 = l, n$0 = n;
+     /*<<list.ml:563:2>>*/ for(;;){
      if(! l$0) return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1;
      var l$1 = l$0[2];
-      /*<<list.ml:540:4>>*/ if(0 >= n$0)  /*<<list.ml:540:19>>*/ return 1;
-      /*<<list.ml:541:6>>*/  /*<<list.ml:541:6>>*/ var n$1 = n$0 - 1 | 0;
+      /*<<list.ml:568:4>>*/ if(0 >= n$0)  /*<<list.ml:568:19>>*/ return 1;
+      /*<<list.ml:569:6>>*/  /*<<list.ml:569:6>>*/ var n$1 = n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
     }
-    /*<<list.ml:541:33>>*/ }
+    /*<<list.ml:569:33>>*/ }
    function is_empty(param){
-     /*<<list.ml:543:15>>*/ return param ? 0 : 1;
-    /*<<list.ml:545:19>>*/ }
+     /*<<list.ml:571:15>>*/ return param ? 0 : 1;
+    /*<<list.ml:573:19>>*/ }
    function equal(eq, l1, l2){
-     /*<<list.ml:555:2>>*/ var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:555:2>>*/ for(;;){
+     /*<<list.ml:583:2>>*/ var l1$0 = l1, l2$0 = l2;
+     /*<<list.ml:583:2>>*/ for(;;){
      if(l1$0){
       if(l2$0){
-        /*<<list.ml:558:22>>*/ var
+        /*<<list.ml:586:22>>*/ var
         l2$1 = l2$0[2],
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-         /*<<list.ml:558:22>>*/ _d_ =
-           /*<<list.ml:558:22>>*/ caml_call2(eq, a1, a2);
-        /*<<list.ml:558:22>>*/ if(! _d_)  /*<<list.ml:558:22>>*/ return _d_;
+         /*<<list.ml:586:22>>*/ _d_ =
+           /*<<list.ml:586:22>>*/ caml_call2(eq, a1, a2);
+        /*<<list.ml:586:22>>*/ if(! _d_)  /*<<list.ml:586:22>>*/ return _d_;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:556:14>>*/ return 1;
-      /*<<list.ml:557:27>>*/ return 0;
+     else if(! l2$0)  /*<<list.ml:584:14>>*/ return 1;
+      /*<<list.ml:585:27>>*/ return 0;
     }
-    /*<<list.ml:558:48>>*/ }
+    /*<<list.ml:586:48>>*/ }
    function compare(cmp, l1, l2){
-     /*<<list.ml:561:2>>*/ var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:561:2>>*/ for(;;){
+     /*<<list.ml:589:2>>*/ var l1$0 = l1, l2$0 = l2;
+     /*<<list.ml:589:2>>*/ for(;;){
      if(! l1$0) return l2$0 ? -1 : 0;
      var l1$1 = l1$0[2], a1 = l1$0[1];
-     if(! l2$0)  /*<<list.ml:564:16>>*/ return 1;
-      /*<<list.ml:566:12>>*/ var
+     if(! l2$0)  /*<<list.ml:592:16>>*/ return 1;
+      /*<<list.ml:594:12>>*/ var
       l2$1 = l2$0[2],
       a2 = l2$0[1],
-       /*<<list.ml:566:12>>*/ c =
-         /*<<list.ml:566:12>>*/ caml_call2(cmp, a1, a2);
-      /*<<list.ml:567:4>>*/ if(0 !== c)  /*<<list.ml:567:19>>*/ return c;
+       /*<<list.ml:594:12>>*/ c =
+         /*<<list.ml:594:12>>*/ caml_call2(cmp, a1, a2);
+      /*<<list.ml:595:4>>*/ if(0 !== c)  /*<<list.ml:595:19>>*/ return c;
      l1$0 = l1$1;
      l2$0 = l2$1;
     }
-    /*<<list.ml:568:26>>*/ }
+    /*<<list.ml:596:26>>*/ }
    function to_seq(l){
-     /*<<list.ml:573:2>>*/ function aux(l, param){
-      /*<<list.ml:573:21>>*/ if(! l)  /*<<list.ml:574:12>>*/ return 0;
+     /*<<list.ml:601:2>>*/ function aux(l, param){
+      /*<<list.ml:601:21>>*/ if(! l)  /*<<list.ml:602:12>>*/ return 0;
      var tail = l[2], x = l[1];
-      /*<<list.ml:575:19>>*/ return [0,
+      /*<<list.ml:603:19>>*/ return [0,
              x,
              function(_c_){ /*<<?>>*/ return aux(tail, _c_);}];
-     /*<<list.ml:575:41>>*/ }
-     /*<<list.ml:577:2>>*/ return function(_b_){
+     /*<<list.ml:603:41>>*/ }
+     /*<<list.ml:605:2>>*/ return function(_b_){
       /*<<?>>*/ return aux(l, _b_);};
-    /*<<list.ml:577:7>>*/ }
+    /*<<list.ml:605:7>>*/ }
    function of_seq(seq){
-     /*<<list.ml:580:2>>*/  /*<<list.ml:580:8>>*/ var
-     match =  /*<<list.ml:580:8>>*/ caml_call1(seq, 0);
-    if(! match)  /*<<list.ml:581:15>>*/ return 0;
-     /*<<list.ml:583:18>>*/ var
+     /*<<list.ml:608:2>>*/  /*<<list.ml:608:8>>*/ var
+     match =  /*<<list.ml:608:8>>*/ caml_call1(seq, 0);
+    if(! match)  /*<<list.ml:609:15>>*/ return 0;
+     /*<<list.ml:611:18>>*/ var
      seq$0 = match[2],
      x1 = match[1],
-      /*<<list.ml:583:18>>*/ match$0 =
-        /*<<list.ml:583:18>>*/ caml_call1(seq$0, 0);
-    if(! match$0)  /*<<list.ml:584:19>>*/ return [0, x1, 0];
-     /*<<list.ml:585:36>>*/ var
+      /*<<list.ml:611:18>>*/ match$0 =
+        /*<<list.ml:611:18>>*/ caml_call1(seq$0, 0);
+    if(! match$0)  /*<<list.ml:612:19>>*/ return [0, x1, 0];
+     /*<<list.ml:613:36>>*/ var
      seq$1 = match$0[2],
      x2 = match$0[1],
-      /*<<list.ml:585:36>>*/ block = [0, x2, 24029],
+      /*<<list.ml:613:36>>*/ block = [0, x2, 24029],
      dst = block,
      offset = 1,
      seq$2 = seq$1;
-     /*<<list.ml:580:2>>*/ for(;;){
-      /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ var
-      match$1 =  /*<<list.ml:580:8>>*/ caml_call1(seq$2, 0);
+     /*<<list.ml:608:2>>*/ for(;;){
+      /*<<list.ml:608:8>>*/  /*<<list.ml:608:8>>*/ var
+      match$1 =  /*<<list.ml:608:8>>*/ caml_call1(seq$2, 0);
      if(match$1){
-       /*<<list.ml:583:18>>*/ var
+       /*<<list.ml:611:18>>*/ var
        seq$3 = match$1[2],
        x1$0 = match$1[1],
-        /*<<list.ml:583:18>>*/ match$2 =
-          /*<<list.ml:583:18>>*/ caml_call1(seq$3, 0);
+        /*<<list.ml:611:18>>*/ match$2 =
+          /*<<list.ml:611:18>>*/ caml_call1(seq$3, 0);
       if(match$2){
-        /*<<list.ml:585:36>>*/ var
+        /*<<list.ml:613:36>>*/ var
         seq$4 = match$2[2],
         x2$0 = match$2[1],
-         /*<<list.ml:585:36>>*/ dst$0 = [0, x2$0, 24029];
+         /*<<list.ml:613:36>>*/ dst$0 = [0, x2$0, 24029];
        dst[1 + offset] = [0, x1$0, dst$0];
        dst = dst$0;
        offset = 1;
@@ -4712,9 +4809,9 @@
      }
      else
       dst[1 + offset] = 0;
-      /*<<list.ml:585:30>>*/ return [0, x1, block];
+      /*<<list.ml:613:30>>*/ return [0, x1, block];
     }
-    /*<<list.ml:586:9>>*/ }
+    /*<<list.ml:614:9>>*/ }
    var
     Stdlib_List =
       [0,
@@ -4764,6 +4861,10 @@
        find_all,
        find_all,
        filteri,
+       take,
+       drop,
+       take_while,
+       drop_while,
        partition,
        partition_map,
        assoc,
@@ -4783,7 +4884,7 @@
        merge,
        to_seq,
        of_seq];
-   runtime.caml_register_global(17, Stdlib_List, "Stdlib__List");
+   runtime.caml_register_global(19, Stdlib_List, "Stdlib__List");
    return;
    /*<<?>>*/ }
   (globalThis));
@@ -5759,7 +5860,7 @@
    var
     set_uint8 = caml_bytes_set,
     set_uint16_ne = caml_bytes_set16,
-    dec_invalid = Stdlib_Uchar[22],
+    dec_invalid = Stdlib_Uchar[23],
     _a_ = [0, cst_bytes_ml, 679, 9],
     _b_ = [0, cst_bytes_ml, 654, 20],
     cst_index_out_of_bounds = cst_index_out_of_bounds$3,
@@ -5774,7 +5875,7 @@
      /*<<bytes.ml:557:27>>*/  /*<<bytes.ml:557:46>>*/ var
      _l_ =  /*<<bytes.ml:557:46>>*/ caml_call1(Stdlib_Uchar[9], u);
      /*<<bytes.ml:557:46>>*/ return  /*<<bytes.ml:557:46>>*/ caml_call2
-            (Stdlib_Uchar[21], n, _l_);
+            (Stdlib_Uchar[22], n, _l_);
     /*<<bytes.ml:557:69>>*/ }
    function not_in_x80_to_xBF(b){
      /*<<bytes.ml:575:35>>*/ return 2 !== (b >>> 6 | 0) ? 1 : 0;
@@ -7126,15 +7227,15 @@
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Array
-//# unitInfo: Requires: Stdlib, Stdlib__Seq
+//# unitInfo: Requires: Stdlib, Stdlib__Seq, Stdlib__String
 (function
   (globalThis){
    "use strict";
    var
     runtime = globalThis.jsoo_runtime,
+    caml_array_make = runtime.caml_array_make,
     caml_array_sub = runtime.caml_array_sub,
     caml_check_bound = runtime.caml_check_bound,
-    caml_make_vect = runtime.caml_make_vect,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_wrap_exception = runtime.caml_wrap_exception;
     /*<<?>>*/ function caml_call1(f, a0){
@@ -7154,9 +7255,11 @@
    }
     /*<<array.ml:37:20>>*/ var
     global_data = runtime.caml_get_global_data(),
+    cst = "",
     Stdlib_Seq = global_data.Stdlib__Seq,
-    Assert_failure = global_data.Assert_failure,
     Stdlib = global_data.Stdlib,
+    Stdlib_String = global_data.Stdlib__String,
+    Assert_failure = global_data.Assert_failure,
      /*<<array.ml:37:20>>*/ Floatarray = [0],
     cst_Array_init = "Array.init",
     cst_Array_make_matrix = "Array.make_matrix",
@@ -7178,18 +7281,18 @@
              (Stdlib[1], cst_Array_init);
      /*<<array.ml:54:13>>*/ var
       /*<<array.ml:54:13>>*/ res =
-        /*<<array.ml:54:13>>*/ caml_make_vect
+        /*<<array.ml:54:13>>*/ caml_array_make
         (l,  /*<<array.ml:54:22>>*/ caml_call1(f, 0)),
-      /*<<array.ml:55:3>>*/ _aE_ = l - 1 | 0,
-      /*<<array.ml:54:13>>*/ _aD_ = 1;
-    if(_aE_ >= 1){
-     var i = _aD_;
+      /*<<array.ml:55:3>>*/ _aL_ = l - 1 | 0,
+      /*<<array.ml:54:13>>*/ _aK_ = 1;
+    if(_aL_ >= 1){
+     var i = _aK_;
      for(;;){
        /*<<array.ml:56:5>>*/ res[1 + i] =
         /*<<array.ml:56:22>>*/ caml_call1(f, i);
-       /*<<array.ml:56:5>>*/  /*<<array.ml:56:5>>*/ var _aF_ = i + 1 | 0;
-      if(_aE_ === i) break;
-      i = _aF_;
+       /*<<array.ml:56:5>>*/  /*<<array.ml:56:5>>*/ var _aM_ = i + 1 | 0;
+      if(_aL_ === i) break;
+      i = _aM_;
      }
     }
      /*<<array.ml:58:3>>*/ return res;
@@ -7199,18 +7302,18 @@
       /*<<array.ml:62:17>>*/  /*<<array.ml:62:17>>*/ caml_call1
       (Stdlib[1], cst_Array_make_matrix);
      /*<<array.ml:63:12>>*/  /*<<array.ml:63:12>>*/ var
-     res =  /*<<array.ml:63:12>>*/ caml_make_vect(sx, [0]);
+     res =  /*<<array.ml:63:12>>*/ caml_array_make(sx, [0]);
     if(0 < sy){
       /*<<array.ml:64:17>>*/ var
-      _aB_ = sx - 1 | 0,
-       /*<<array.ml:64:17>>*/ _aA_ = 0;
-     if(_aB_ >= 0){
-      var x = _aA_;
+      _aI_ = sx - 1 | 0,
+       /*<<array.ml:64:17>>*/ _aH_ = 0;
+     if(_aI_ >= 0){
+      var x = _aH_;
       for(;;){
-       res[1 + x] =  /*<<array.ml:66:23>>*/ caml_make_vect(sy, init);
-        /*<<array.ml:64:17>>*/  /*<<array.ml:64:17>>*/ var _aC_ = x + 1 | 0;
-       if(_aB_ === x) break;
-       x = _aC_;
+       res[1 + x] =  /*<<array.ml:66:23>>*/ caml_array_make(sy, init);
+        /*<<array.ml:64:17>>*/  /*<<array.ml:64:17>>*/ var _aJ_ = x + 1 | 0;
+       if(_aI_ === x) break;
+       x = _aJ_;
       }
      }
     }
@@ -7221,34 +7324,34 @@
       /*<<array.ml:73:17>>*/  /*<<array.ml:73:17>>*/ caml_call1
       (Stdlib[1], cst_Array_init_matrix);
      /*<<array.ml:74:12>>*/  /*<<array.ml:74:12>>*/ var
-     res =  /*<<array.ml:74:12>>*/ caml_make_vect(sx, [0]);
+     res =  /*<<array.ml:74:12>>*/ caml_array_make(sx, [0]);
     if(0 < sy){
       /*<<array.ml:76:17>>*/ var
-      _av_ = sx - 1 | 0,
-       /*<<array.ml:76:17>>*/ _au_ = 0;
-     if(_av_ >= 0){
-      var x = _au_;
+      _aC_ = sx - 1 | 0,
+       /*<<array.ml:76:17>>*/ _aB_ = 0;
+     if(_aC_ >= 0){
+      var x = _aB_;
       for(;;){
         /*<<array.ml:78:16>>*/ var
          /*<<array.ml:78:16>>*/ row =
-           /*<<array.ml:78:16>>*/ caml_make_vect
+           /*<<array.ml:78:16>>*/ caml_array_make
            (sy,  /*<<array.ml:78:26>>*/ caml_call2(f, x, 0)),
-         /*<<array.ml:79:6>>*/ _ax_ = sy - 1 | 0,
-         /*<<array.ml:78:16>>*/ _aw_ = 1;
-       if(_ax_ >= 1){
-        var y = _aw_;
+         /*<<array.ml:79:6>>*/ _aE_ = sy - 1 | 0,
+         /*<<array.ml:78:16>>*/ _aD_ = 1;
+       if(_aE_ >= 1){
+        var y = _aD_;
         for(;;){
           /*<<array.ml:80:8>>*/ row[1 + y] =
            /*<<array.ml:80:25>>*/ caml_call2(f, x, y);
-          /*<<array.ml:80:8>>*/  /*<<array.ml:80:8>>*/ var _az_ = y + 1 | 0;
-         if(_ax_ === y) break;
-         y = _az_;
+          /*<<array.ml:80:8>>*/  /*<<array.ml:80:8>>*/ var _aG_ = y + 1 | 0;
+         if(_aE_ === y) break;
+         y = _aG_;
         }
        }
        res[1 + x] = row;
-        /*<<array.ml:76:17>>*/  /*<<array.ml:76:17>>*/ var _ay_ = x + 1 | 0;
-       if(_av_ === x) break;
-       x = _ay_;
+        /*<<array.ml:76:17>>*/  /*<<array.ml:76:17>>*/ var _aF_ = x + 1 | 0;
+       if(_aC_ === x) break;
+       x = _aF_;
       }
      }
     }
@@ -7300,16 +7403,16 @@
     /*<<array.ml:110:38>>*/ }
    function iter(f, a){
      /*<<array.ml:113:2>>*/ var
-     _as_ = a.length - 2 | 0,
-      /*<<array.ml:113:2>>*/ _ar_ = 0;
-    if(_as_ >= 0){
-     var i = _ar_;
+     _az_ = a.length - 2 | 0,
+      /*<<array.ml:113:2>>*/ _ay_ = 0;
+    if(_az_ >= 0){
+     var i = _ay_;
      for(;;){
        /*<<array.ml:113:31>>*/  /*<<array.ml:113:31>>*/ caml_call1
        (f, a[1 + i]);
-       /*<<array.ml:113:31>>*/  /*<<array.ml:113:31>>*/ var _at_ = i + 1 | 0;
-      if(_as_ === i) break;
-      i = _at_;
+       /*<<array.ml:113:31>>*/  /*<<array.ml:113:31>>*/ var _aA_ = i + 1 | 0;
+      if(_az_ === i) break;
+      i = _aA_;
      }
     }
     return 0;
@@ -7319,16 +7422,16 @@
       /*<<array.ml:117:4>>*/ return  /*<<array.ml:117:4>>*/ caml_call1
              (Stdlib[1], cst_Array_iter2_arrays_must_ha);
      /*<<array.ml:119:4>>*/ var
-     _ap_ = a.length - 2 | 0,
-      /*<<array.ml:119:4>>*/ _ao_ = 0;
-    if(_ap_ >= 0){
-     var i = _ao_;
+     _aw_ = a.length - 2 | 0,
+      /*<<array.ml:119:4>>*/ _av_ = 0;
+    if(_aw_ >= 0){
+     var i = _av_;
      for(;;){
        /*<<array.ml:119:33>>*/  /*<<array.ml:119:33>>*/ caml_call2
        (f, a[1 + i], b[1 + i]);
-       /*<<array.ml:119:33>>*/  /*<<array.ml:119:33>>*/ var _aq_ = i + 1 | 0;
-      if(_ap_ === i) break;
-      i = _aq_;
+       /*<<array.ml:119:33>>*/  /*<<array.ml:119:33>>*/ var _ax_ = i + 1 | 0;
+      if(_aw_ === i) break;
+      i = _ax_;
      }
     }
     return 0;
@@ -7338,50 +7441,50 @@
      /*<<array.ml:123:2>>*/ if(0 === l)  /*<<array.ml:123:16>>*/ return [0];
      /*<<array.ml:124:12>>*/ var
       /*<<array.ml:124:12>>*/ r =
-        /*<<array.ml:124:12>>*/ caml_make_vect
+        /*<<array.ml:124:12>>*/ caml_array_make
         (l,  /*<<array.ml:124:21>>*/ caml_call1(f, a[1])),
-      /*<<array.ml:125:4>>*/ _am_ = l - 1 | 0,
-      /*<<array.ml:124:12>>*/ _al_ = 1;
-    if(_am_ >= 1){
-     var i = _al_;
+      /*<<array.ml:125:4>>*/ _at_ = l - 1 | 0,
+      /*<<array.ml:124:12>>*/ _as_ = 1;
+    if(_at_ >= 1){
+     var i = _as_;
      for(;;){
        /*<<array.ml:126:6>>*/ r[1 + i] =
         /*<<array.ml:126:21>>*/ caml_call1(f, a[1 + i]);
-       /*<<array.ml:126:6>>*/  /*<<array.ml:126:6>>*/ var _an_ = i + 1 | 0;
-      if(_am_ === i) break;
-      i = _an_;
+       /*<<array.ml:126:6>>*/  /*<<array.ml:126:6>>*/ var _au_ = i + 1 | 0;
+      if(_at_ === i) break;
+      i = _au_;
      }
     }
      /*<<array.ml:128:4>>*/ return r;
     /*<<array.ml:129:5>>*/ }
    function map_inplace(f, a){
      /*<<array.ml:132:2>>*/ var
-     _aj_ = a.length - 2 | 0,
-      /*<<array.ml:132:2>>*/ _ai_ = 0;
-    if(_aj_ >= 0){
-     var i = _ai_;
+     _aq_ = a.length - 2 | 0,
+      /*<<array.ml:132:2>>*/ _ap_ = 0;
+    if(_aq_ >= 0){
+     var i = _ap_;
      for(;;){
        /*<<array.ml:133:4>>*/ a[1 + i] =
         /*<<array.ml:133:19>>*/ caml_call1(f, a[1 + i]);
-       /*<<array.ml:133:4>>*/  /*<<array.ml:133:4>>*/ var _ak_ = i + 1 | 0;
-      if(_aj_ === i) break;
-      i = _ak_;
+       /*<<array.ml:133:4>>*/  /*<<array.ml:133:4>>*/ var _ar_ = i + 1 | 0;
+      if(_aq_ === i) break;
+      i = _ar_;
      }
     }
     return 0;
     /*<<array.ml:134:6>>*/ }
    function mapi_inplace(f, a){
      /*<<array.ml:137:2>>*/ var
-     _ag_ = a.length - 2 | 0,
-      /*<<array.ml:137:2>>*/ _af_ = 0;
-    if(_ag_ >= 0){
-     var i = _af_;
+     _an_ = a.length - 2 | 0,
+      /*<<array.ml:137:2>>*/ _am_ = 0;
+    if(_an_ >= 0){
+     var i = _am_;
      for(;;){
        /*<<array.ml:138:4>>*/ a[1 + i] =
         /*<<array.ml:138:19>>*/ caml_call2(f, i, a[1 + i]);
-       /*<<array.ml:138:4>>*/  /*<<array.ml:138:4>>*/ var _ah_ = i + 1 | 0;
-      if(_ag_ === i) break;
-      i = _ah_;
+       /*<<array.ml:138:4>>*/  /*<<array.ml:138:4>>*/ var _ao_ = i + 1 | 0;
+      if(_an_ === i) break;
+      i = _ao_;
      }
     }
     return 0;
@@ -7396,34 +7499,34 @@
     if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
      /*<<array.ml:148:14>>*/ var
       /*<<array.ml:148:14>>*/ r =
-        /*<<array.ml:148:14>>*/ caml_make_vect
+        /*<<array.ml:148:14>>*/ caml_array_make
         (la,  /*<<array.ml:148:24>>*/ caml_call2(f, a[1], b[1])),
-      /*<<array.ml:149:6>>*/ _ad_ = la - 1 | 0,
-      /*<<array.ml:148:14>>*/ _ac_ = 1;
-    if(_ad_ >= 1){
-     var i = _ac_;
+      /*<<array.ml:149:6>>*/ _ak_ = la - 1 | 0,
+      /*<<array.ml:148:14>>*/ _aj_ = 1;
+    if(_ak_ >= 1){
+     var i = _aj_;
      for(;;){
        /*<<array.ml:150:8>>*/ r[1 + i] =
         /*<<array.ml:150:23>>*/ caml_call2(f, a[1 + i], b[1 + i]);
-       /*<<array.ml:150:8>>*/  /*<<array.ml:150:8>>*/ var _ae_ = i + 1 | 0;
-      if(_ad_ === i) break;
-      i = _ae_;
+       /*<<array.ml:150:8>>*/  /*<<array.ml:150:8>>*/ var _al_ = i + 1 | 0;
+      if(_ak_ === i) break;
+      i = _al_;
      }
     }
      /*<<array.ml:152:6>>*/ return r;
     /*<<array.ml:154:5>>*/ }
    function iteri(f, a){
      /*<<array.ml:157:2>>*/ var
-     _aa_ = a.length - 2 | 0,
-      /*<<array.ml:157:2>>*/ _$_ = 0;
-    if(_aa_ >= 0){
-     var i = _$_;
+     _ah_ = a.length - 2 | 0,
+      /*<<array.ml:157:2>>*/ _ag_ = 0;
+    if(_ah_ >= 0){
+     var i = _ag_;
      for(;;){
        /*<<array.ml:157:31>>*/  /*<<array.ml:157:31>>*/ caml_call2
        (f, i, a[1 + i]);
-       /*<<array.ml:157:31>>*/  /*<<array.ml:157:31>>*/ var _ab_ = i + 1 | 0;
-      if(_aa_ === i) break;
-      i = _ab_;
+       /*<<array.ml:157:31>>*/  /*<<array.ml:157:31>>*/ var _ai_ = i + 1 | 0;
+      if(_ah_ === i) break;
+      i = _ai_;
      }
     }
     return 0;
@@ -7433,18 +7536,18 @@
      /*<<array.ml:161:2>>*/ if(0 === l)  /*<<array.ml:161:16>>*/ return [0];
      /*<<array.ml:162:12>>*/ var
       /*<<array.ml:162:12>>*/ r =
-        /*<<array.ml:162:12>>*/ caml_make_vect
+        /*<<array.ml:162:12>>*/ caml_array_make
         (l,  /*<<array.ml:162:21>>*/ caml_call2(f, 0, a[1])),
-      /*<<array.ml:163:4>>*/ _Z_ = l - 1 | 0,
-      /*<<array.ml:162:12>>*/ _Y_ = 1;
-    if(_Z_ >= 1){
-     var i = _Y_;
+      /*<<array.ml:163:4>>*/ _ae_ = l - 1 | 0,
+      /*<<array.ml:162:12>>*/ _ad_ = 1;
+    if(_ae_ >= 1){
+     var i = _ad_;
      for(;;){
        /*<<array.ml:164:6>>*/ r[1 + i] =
         /*<<array.ml:164:21>>*/ caml_call2(f, i, a[1 + i]);
-       /*<<array.ml:164:6>>*/  /*<<array.ml:164:6>>*/ var ___ = i + 1 | 0;
-      if(_Z_ === i) break;
-      i = ___;
+       /*<<array.ml:164:6>>*/  /*<<array.ml:164:6>>*/ var _af_ = i + 1 | 0;
+      if(_ae_ === i) break;
+      i = _af_;
      }
     }
      /*<<array.ml:166:4>>*/ return r;
@@ -7477,7 +7580,7 @@
      tl = l[2],
      hd = l[1],
       /*<<array.ml:182:14>>*/ a =
-        /*<<array.ml:182:14>>*/ caml_make_vect(list_length(0, l), hd),
+        /*<<array.ml:182:14>>*/ caml_array_make(list_length(0, l), hd),
      i = 1,
      param = tl;
     for(;;){
@@ -7492,15 +7595,15 @@
    function fold_left(f, x, a){
      /*<<array.ml:189:2>>*/ var
       /*<<array.ml:189:10>>*/ r = [0, x],
-     _W_ = a.length - 2 | 0,
-      /*<<array.ml:189:10>>*/ _V_ = 0;
-    if(_W_ >= 0){
-     var i = _V_;
+     _ab_ = a.length - 2 | 0,
+      /*<<array.ml:189:10>>*/ _aa_ = 0;
+    if(_ab_ >= 0){
+     var i = _aa_;
      for(;;){
       r[1] =  /*<<array.ml:191:9>>*/ caml_call2(f, r[1], a[1 + i]);
-       /*<<array.ml:190:2>>*/  /*<<array.ml:190:2>>*/ var _X_ = i + 1 | 0;
-      if(_W_ === i) break;
-      i = _X_;
+       /*<<array.ml:190:2>>*/  /*<<array.ml:190:2>>*/ var _ac_ = i + 1 | 0;
+      if(_ab_ === i) break;
+      i = _ac_;
      }
     }
     return r[1];
@@ -7515,12 +7618,12 @@
      elt = match[2],
      acc$0 = match[1],
       /*<<array.ml:199:23>>*/ output_array =
-        /*<<array.ml:199:23>>*/ caml_make_vect(len, elt),
+        /*<<array.ml:199:23>>*/ caml_array_make(len, elt),
       /*<<array.ml:200:14>>*/ acc$1 = [0, acc$0],
-      /*<<array.ml:201:4>>*/ _T_ = len - 1 | 0,
-      /*<<array.ml:200:14>>*/ _S_ = 1;
-    if(_T_ >= 1){
-     var i = _S_;
+      /*<<array.ml:201:4>>*/ ___ = len - 1 | 0,
+      /*<<array.ml:200:14>>*/ _Z_ = 1;
+    if(___ >= 1){
+     var i = _Z_;
      for(;;){
        /*<<array.ml:202:22>>*/ var
         /*<<array.ml:202:22>>*/ match$0 =
@@ -7529,9 +7632,9 @@
        acc$2 = match$0[1];
       acc$1[1] = acc$2;
        /*<<array.ml:204:6>>*/ output_array[1 + i] = elt$0;
-       /*<<array.ml:201:4>>*/  /*<<array.ml:201:4>>*/ var _U_ = i + 1 | 0;
-      if(_T_ === i) break;
-      i = _U_;
+       /*<<array.ml:201:4>>*/  /*<<array.ml:201:4>>*/ var _$_ = i + 1 | 0;
+      if(___ === i) break;
+      i = _$_;
      }
     }
      /*<<array.ml:206:4>>*/ return [0, acc$1[1], output_array];
@@ -7539,14 +7642,14 @@
    function fold_right(f, a, x){
      /*<<array.ml:210:2>>*/ var
       /*<<array.ml:210:10>>*/ r = [0, x],
-      /*<<array.ml:211:2>>*/ _Q_ = a.length - 2 | 0;
-    if(_Q_ >= 0){
-     var i = _Q_;
+      /*<<array.ml:211:2>>*/ _X_ = a.length - 2 | 0;
+    if(_X_ >= 0){
+     var i = _X_;
      for(;;){
       r[1] =  /*<<array.ml:212:9>>*/ caml_call2(f, a[1 + i], r[1]);
-       /*<<array.ml:211:2>>*/  /*<<array.ml:211:2>>*/ var _R_ = i - 1 | 0;
+       /*<<array.ml:211:2>>*/  /*<<array.ml:211:2>>*/ var _Y_ = i - 1 | 0;
       if(0 === i) break;
-      i = _R_;
+      i = _Y_;
      }
     }
     return r[1];
@@ -7677,20 +7780,20 @@
      a0 = match[1],
       /*<<array.ml:313:4>>*/ n = x.length - 1,
       /*<<array.ml:314:12>>*/ a =
-        /*<<array.ml:314:12>>*/ caml_make_vect(n, a0),
+        /*<<array.ml:314:12>>*/ caml_array_make(n, a0),
       /*<<array.ml:315:12>>*/ b =
-        /*<<array.ml:315:12>>*/ caml_make_vect(n, b0),
-      /*<<array.ml:316:4>>*/ _O_ = n - 1 | 0,
-      /*<<array.ml:315:12>>*/ _N_ = 1;
-    if(_O_ >= 1){
-     var i = _N_;
+        /*<<array.ml:315:12>>*/ caml_array_make(n, b0),
+      /*<<array.ml:316:4>>*/ _V_ = n - 1 | 0,
+      /*<<array.ml:315:12>>*/ _U_ = 1;
+    if(_V_ >= 1){
+     var i = _U_;
      for(;;){
       var match$0 = x[1 + i], bi = match$0[2], ai = match$0[1];
        /*<<array.ml:318:6>>*/ a[1 + i] = ai;
        /*<<array.ml:319:6>>*/ b[1 + i] = bi;
-       /*<<array.ml:316:4>>*/  /*<<array.ml:316:4>>*/ var _P_ = i + 1 | 0;
-      if(_O_ === i) break;
-      i = _P_;
+       /*<<array.ml:316:4>>*/  /*<<array.ml:316:4>>*/ var _W_ = i + 1 | 0;
+      if(_V_ === i) break;
+      i = _W_;
      }
     }
      /*<<array.ml:321:4>>*/ return [0, a, b];
@@ -7705,16 +7808,16 @@
     if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
      /*<<array.ml:330:12>>*/ var
       /*<<array.ml:330:12>>*/ x =
-        /*<<array.ml:330:12>>*/ caml_make_vect(na, [0, a[1], b[1]]),
-      /*<<array.ml:331:4>>*/ _L_ = na - 1 | 0,
-      /*<<array.ml:330:12>>*/ _K_ = 1;
-    if(_L_ >= 1){
-     var i = _K_;
+        /*<<array.ml:330:12>>*/ caml_array_make(na, [0, a[1], b[1]]),
+      /*<<array.ml:331:4>>*/ _S_ = na - 1 | 0,
+      /*<<array.ml:330:12>>*/ _R_ = 1;
+    if(_S_ >= 1){
+     var i = _R_;
      for(;;){
       x[1 + i] = [0, a[1 + i], b[1 + i]];
-       /*<<array.ml:331:4>>*/  /*<<array.ml:331:4>>*/ var _M_ = i + 1 | 0;
-      if(_L_ === i) break;
-      i = _M_;
+       /*<<array.ml:331:4>>*/  /*<<array.ml:331:4>>*/ var _T_ = i + 1 | 0;
+      if(_S_ === i) break;
+      i = _T_;
      }
     }
      /*<<array.ml:334:4>>*/ return x;
@@ -7722,7 +7825,11 @@
     /*<<array.ml:337:0>>*/ var
      /*<<array.ml:337:0>>*/ Bottom =
       [248, "Stdlib.Array.Bottom", runtime.caml_fresh_oo_id(0)],
-    _a_ = [0, "array.ml", 369, 4];
+    _a_ = [0, "array.ml", 369, 4],
+    _b_ = [0, "]", 0],
+    cst_out_of_expected_range_0 = ", out of expected range [0; ",
+    cst_returned = "' returned ",
+    cst_Array_shuffle_rand = "Array.shuffle: 'rand ";
    function sort(cmp, a){
     function maxson(l, i){
       /*<<array.ml:340:4>>*/ var
@@ -7730,42 +7837,42 @@
        /*<<array.ml:341:12>>*/ x = [0, i31];
      if((i31 + 2 | 0) < l){
        /*<<array.ml:342:22>>*/ var
-        /*<<array.ml:342:22>>*/ _D_ = i31 + 1 | 0,
-        /*<<array.ml:343:25>>*/ _E_ = caml_check_bound(a, _D_)[1 + _D_];
+        /*<<array.ml:342:22>>*/ _K_ = i31 + 1 | 0,
+        /*<<array.ml:343:25>>*/ _L_ = caml_check_bound(a, _K_)[1 + _K_];
       if
        ( /*<<array.ml:343:9>>*/ caml_call2
-         (cmp, caml_check_bound(a, i31)[1 + i31], _E_)
+         (cmp, caml_check_bound(a, i31)[1 + i31], _L_)
         < 0)
        x[1] = i31 + 1 | 0;
        /*<<array.ml:344:6>>*/ var
-        /*<<array.ml:344:6>>*/ _F_ = i31 + 2 | 0,
-        /*<<array.ml:344:24>>*/ _G_ = caml_check_bound(a, _F_)[1 + _F_],
-       _H_ = x[1];
+        /*<<array.ml:344:6>>*/ _M_ = i31 + 2 | 0,
+        /*<<array.ml:344:24>>*/ _N_ = caml_check_bound(a, _M_)[1 + _M_],
+       _O_ = x[1];
       if
        ( /*<<array.ml:344:9>>*/ caml_call2
-         (cmp, caml_check_bound(a, _H_)[1 + _H_], _G_)
+         (cmp, caml_check_bound(a, _O_)[1 + _O_], _N_)
         < 0)
        x[1] = i31 + 2 | 0;
       return x[1];
      }
      if((i31 + 1 | 0) < l){
        /*<<array.ml:347:38>>*/ var
-       _I_ = i31 + 1 | 0,
-        /*<<array.ml:347:38>>*/ _J_ = caml_check_bound(a, _I_)[1 + _I_];
+       _P_ = i31 + 1 | 0,
+        /*<<array.ml:347:38>>*/ _Q_ = caml_check_bound(a, _P_)[1 + _P_];
        /*<<array.ml:347:22>>*/ if
        (0
         >
           /*<<array.ml:347:22>>*/ caml_call2
-          (cmp, caml_check_bound(a, i31)[1 + i31], _J_))
+          (cmp, caml_check_bound(a, i31)[1 + i31], _Q_))
         /*<<array.ml:348:11>>*/ return i31 + 1 | 0;
      }
      if(i31 < l)  /*<<array.ml:349:27>>*/ return i31;
       /*<<array.ml:349:36>>*/ throw  /*<<array.ml:349:36>>*/ caml_maybe_attach_backtrace
             ([0, Bottom, i], 1);
      /*<<array.ml:349:52>>*/ }
-    var l = a.length - 1, _x_ = ((l + 1 | 0) / 3 | 0) - 1 | 0;
-    if(_x_ >= 0){
-     var i$6 = _x_;
+    var l = a.length - 1, _E_ = ((l + 1 | 0) / 3 | 0) - 1 | 0;
+    if(_E_ >= 0){
+     var i$6 = _E_;
      for(;;){
        /*<<array.ml:378:50>>*/  /*<<array.ml:378:50>>*/ var
        e$1 = caml_check_bound(a, i$6)[1 + i$6];
@@ -7781,8 +7888,8 @@
             (cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
          /*<<array.ml:354:14>>*/  /*<<array.ml:354:14>>*/ var
-         _u_ = caml_check_bound(a, j)[1 + j];
-         /*<<array.ml:354:6>>*/ caml_check_bound(a, i)[1 + i] = _u_;
+         _B_ = caml_check_bound(a, j)[1 + j];
+         /*<<array.ml:354:6>>*/ caml_check_bound(a, i)[1 + i] = _B_;
         i = j;
        }
         /*<<array.ml:356:13>>*/ caml_check_bound(a, i)[1 + i] = e$1;
@@ -7793,14 +7900,14 @@
        var i$0 = exn[2];
         /*<<array.ml:360:61>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
-       /*<<array.ml:378:38>>*/  /*<<array.ml:378:38>>*/ var _C_ = i$6 - 1 | 0;
+       /*<<array.ml:378:38>>*/  /*<<array.ml:378:38>>*/ var _J_ = i$6 - 1 | 0;
       if(0 === i$6) break;
-      i$6 = _C_;
+      i$6 = _J_;
      }
     }
-     /*<<array.ml:379:2>>*/  /*<<array.ml:379:2>>*/ var _y_ = l - 1 | 0;
-    if(_y_ >= 2){
-     var i$4 = _y_;
+     /*<<array.ml:379:2>>*/  /*<<array.ml:379:2>>*/ var _F_ = l - 1 | 0;
+    if(_F_ >= 2){
+     var i$4 = _F_;
      for(;;){
        /*<<array.ml:380:12>>*/  /*<<array.ml:380:12>>*/ var
        e$0 = caml_check_bound(a, i$4)[1 + i$4];
@@ -7811,8 +7918,8 @@
         /*<<array.ml:362:4>>*/ for(;;){
          /*<<array.ml:362:12>>*/ var
           /*<<array.ml:362:12>>*/ j$0 = maxson(i$4, i$1),
-          /*<<array.ml:363:12>>*/ _v_ = caml_check_bound(a, j$0)[1 + j$0];
-         /*<<array.ml:363:4>>*/ caml_check_bound(a, i$1)[1 + i$1] = _v_;
+          /*<<array.ml:363:12>>*/ _C_ = caml_check_bound(a, j$0)[1 + j$0];
+         /*<<array.ml:363:4>>*/ caml_check_bound(a, i$1)[1 + i$1] = _C_;
         i$1 = j$0;
        }
       }
@@ -7837,8 +7944,8 @@
               (cmp, caml_check_bound(a, father)[1 + father], e$0))
            break;
            /*<<array.ml:371:14>>*/  /*<<array.ml:371:14>>*/ var
-           _w_ = caml_check_bound(a, father)[1 + father];
-           /*<<array.ml:371:6>>*/ caml_check_bound(a, i$3)[1 + i$3] = _w_;
+           _D_ = caml_check_bound(a, father)[1 + father];
+           /*<<array.ml:371:6>>*/ caml_check_bound(a, i$3)[1 + i$3] = _D_;
           if(0 >= father) break b;
           i$3 = father;
          }
@@ -7847,23 +7954,23 @@
         }
          /*<<array.ml:372:49>>*/ caml_check_bound(a, 0)[1] = e$0;
        }
-        /*<<array.ml:379:2>>*/  /*<<array.ml:379:2>>*/ var _B_ = i$4 - 1 | 0;
+        /*<<array.ml:379:2>>*/  /*<<array.ml:379:2>>*/ var _I_ = i$4 - 1 | 0;
        if(2 === i$4) break;
-       i$4 = _B_;
+       i$4 = _I_;
       }
      }
     }
-    var _z_ = 1 < l ? 1 : 0;
-    if(_z_){
+    var _G_ = 1 < l ? 1 : 0;
+    if(_G_){
       /*<<array.ml:384:25>>*/  /*<<array.ml:384:25>>*/ var
       e = caml_check_bound(a, 1)[2];
       /*<<array.ml:384:38>>*/ a[2] = caml_check_bound(a, 0)[1];
       /*<<array.ml:384:57>>*/ a[1] = e;
-     var _A_ = 0;
+     var _H_ = 0;
     }
     else
-     var _A_ = _z_;
-     /*<<array.ml:384:57>>*/ return _A_;
+     var _H_ = _G_;
+     /*<<array.ml:384:57>>*/ return _H_;
     /*<<array.ml:384:67>>*/ }
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
@@ -7907,36 +8014,36 @@
      /*<<array.ml:407:70>>*/ }
     function isortto(srcofs, dst, dstofs, len){
       /*<<array.ml:410:4>>*/ var
-      _m_ = len - 1 | 0,
-       /*<<array.ml:410:4>>*/ _l_ = 0;
-     if(_m_ >= 0){
-      var i = _l_;
+      _t_ = len - 1 | 0,
+       /*<<array.ml:410:4>>*/ _s_ = 0;
+     if(_t_ >= 0){
+      var i = _s_;
       for(;;){
         /*<<array.ml:411:14>>*/ var
-        _n_ = srcofs + i | 0,
-         /*<<array.ml:411:14>>*/ e = caml_check_bound(a, _n_)[1 + _n_],
+        _u_ = srcofs + i | 0,
+         /*<<array.ml:411:14>>*/ e = caml_check_bound(a, _u_)[1 + _u_],
          /*<<array.ml:412:14>>*/ j = [0, (dstofs + i | 0) - 1 | 0];
        for(;;){
         if(dstofs > j[1]) break;
-        var _o_ = j[1];
+        var _v_ = j[1];
          /*<<array.ml:413:29>>*/ if
          (0
           >=
             /*<<array.ml:413:29>>*/ caml_call2
-            (cmp, caml_check_bound(dst, _o_)[1 + _o_], e))
+            (cmp, caml_check_bound(dst, _v_)[1 + _v_], e))
          break;
          /*<<array.ml:414:25>>*/ var
-         _p_ = j[1],
-          /*<<array.ml:414:25>>*/ _q_ = caml_check_bound(dst, _p_)[1 + _p_],
-         _r_ = j[1] + 1 | 0;
-         /*<<array.ml:414:8>>*/ caml_check_bound(dst, _r_)[1 + _r_] = _q_;
+         _w_ = j[1],
+          /*<<array.ml:414:25>>*/ _x_ = caml_check_bound(dst, _w_)[1 + _w_],
+         _y_ = j[1] + 1 | 0;
+         /*<<array.ml:414:8>>*/ caml_check_bound(dst, _y_)[1 + _y_] = _x_;
         j[1]--;
        }
-       var _s_ = j[1] + 1 | 0;
-        /*<<array.ml:417:6>>*/ caml_check_bound(dst, _s_)[1 + _s_] = e;
-        /*<<array.ml:410:4>>*/  /*<<array.ml:410:4>>*/ var _t_ = i + 1 | 0;
-       if(_m_ === i) break;
-       i = _t_;
+       var _z_ = j[1] + 1 | 0;
+        /*<<array.ml:417:6>>*/ caml_check_bound(dst, _z_)[1 + _z_] = e;
+        /*<<array.ml:410:4>>*/  /*<<array.ml:410:4>>*/ var _A_ = i + 1 | 0;
+       if(_t_ === i) break;
+       i = _A_;
       }
      }
      return 0;
@@ -7956,88 +8063,110 @@
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
       /*<<array.ml:433:12>>*/ t =
-        /*<<array.ml:433:12>>*/ caml_make_vect(l2, caml_check_bound(a, 0)[1]);
+        /*<<array.ml:433:12>>*/ caml_array_make(l2, caml_check_bound(a, 0)[1]);
      /*<<array.ml:434:4>>*/ sortto(l1, t, 0, l2);
      /*<<array.ml:435:4>>*/ sortto(0, a, l2, l1);
      /*<<array.ml:435:4>>*/ return merge(l2, l1, t, 0, l2, a, 0);
     /*<<array.ml:437:5>>*/ }
    function shuffle(rand, a){
-     /*<<array.ml:443:2>>*/ var _j_ = a.length - 2 | 0;
-    if(_j_ >= 1){
-     var i = _j_;
+     /*<<array.ml:452:2>>*/ var _o_ = a.length - 2 | 0;
+    if(_o_ >= 1){
+     var i = _o_;
      for(;;){
-       /*<<array.ml:444:12>>*/ var
-        /*<<array.ml:444:12>>*/ j =
-          /*<<array.ml:444:12>>*/ caml_call1(rand, i + 1 | 0),
-        /*<<array.ml:445:12>>*/ v = a[1 + i];
-       /*<<array.ml:446:4>>*/ a[1 + i] = caml_check_bound(a, j)[1 + j];
-       /*<<array.ml:447:4>>*/ a[1 + j] = v;
-      var _k_ = i - 1 | 0;
+       /*<<array.ml:453:12>>*/ var
+        /*<<array.ml:453:12>>*/ j =
+          /*<<array.ml:453:12>>*/ caml_call1(rand, i + 1 | 0),
+       _p_ = 0 <= j ? 1 : 0,
+       _q_ = _p_ ? j <= i ? 1 : 0 : _p_;
+      if(1 - _q_){
+        /*<<array.ml:443:2>>*/ var
+         /*<<array.ml:443:2>>*/ int$0 = Stdlib[33],
+        _k_ =
+          [0,
+           cst_out_of_expected_range_0,
+           [0,  /*<<array.ml:447:36>>*/ caml_call1(int$0, i), _b_]],
+        _l_ =
+          [0,
+           cst_returned,
+           [0,  /*<<array.ml:446:19>>*/ caml_call1(int$0, j), _k_]],
+         /*<<array.ml:444:19>>*/ _m_ =
+          [0,
+           cst_Array_shuffle_rand,
+           [0,  /*<<array.ml:445:29>>*/ caml_call1(int$0, i + 1 | 0), _l_]],
+         /*<<array.ml:444:2>>*/ _n_ =
+           /*<<array.ml:444:2>>*/ caml_call2(Stdlib_String[7], cst, _m_);
+        /*<<array.ml:444:2>>*/  /*<<array.ml:444:2>>*/ caml_call1
+        (Stdlib[1], _n_);
+      }
+       /*<<array.ml:455:12>>*/  /*<<array.ml:455:12>>*/ var v = a[1 + i];
+       /*<<array.ml:456:4>>*/ a[1 + i] = a[1 + j];
+       /*<<array.ml:457:4>>*/ a[1 + j] = v;
+      var _r_ = i - 1 | 0;
       if(1 === i) break;
-      i = _k_;
+      i = _r_;
      }
     }
     return 0;
-    /*<<array.ml:448:6>>*/ }
+    /*<<array.ml:458:6>>*/ }
    function to_seq(a){
-    function aux(i, param){
-      /*<<array.ml:454:4>>*/ if(i >= a.length - 1)
-       /*<<array.ml:458:9>>*/ return 0;
-      /*<<array.ml:456:14>>*/ var
-       /*<<array.ml:456:14>>*/ x = a[1 + i],
-       /*<<array.ml:456:14>>*/ _h_ = i + 1 | 0;
-      /*<<array.ml:457:6>>*/ return [0,
-             x,
-             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}];
-     /*<<array.ml:458:16>>*/ }
-     /*<<array.ml:460:2>>*/ var _f_ = 0;
-     /*<<array.ml:460:2>>*/ return function(_g_){
-      /*<<?>>*/ return aux(_f_, _g_);};
-    /*<<array.ml:460:7>>*/ }
-   function to_seqi(a){
     function aux(i, param){
       /*<<array.ml:464:4>>*/ if(i >= a.length - 1)
        /*<<array.ml:468:9>>*/ return 0;
       /*<<array.ml:466:14>>*/ var
        /*<<array.ml:466:14>>*/ x = a[1 + i],
-       /*<<array.ml:466:14>>*/ _d_ = i + 1 | 0;
+       /*<<array.ml:466:14>>*/ _i_ = i + 1 | 0;
       /*<<array.ml:467:6>>*/ return [0,
-             [0, i, x],
-             function(_e_){ /*<<?>>*/ return aux(_d_, _e_);}];
+             x,
+             function(_j_){ /*<<?>>*/ return aux(_i_, _j_);}];
      /*<<array.ml:468:16>>*/ }
-     /*<<array.ml:470:2>>*/ var _b_ = 0;
-     /*<<array.ml:470:2>>*/ return function(_c_){
-      /*<<?>>*/ return aux(_b_, _c_);};
+     /*<<array.ml:470:2>>*/ var _g_ = 0;
+     /*<<array.ml:470:2>>*/ return function(_h_){
+      /*<<?>>*/ return aux(_g_, _h_);};
     /*<<array.ml:470:7>>*/ }
+   function to_seqi(a){
+    function aux(i, param){
+      /*<<array.ml:474:4>>*/ if(i >= a.length - 1)
+       /*<<array.ml:478:9>>*/ return 0;
+      /*<<array.ml:476:14>>*/ var
+       /*<<array.ml:476:14>>*/ x = a[1 + i],
+       /*<<array.ml:476:14>>*/ _e_ = i + 1 | 0;
+      /*<<array.ml:477:6>>*/ return [0,
+             [0, i, x],
+             function(_f_){ /*<<?>>*/ return aux(_e_, _f_);}];
+     /*<<array.ml:478:16>>*/ }
+     /*<<array.ml:480:2>>*/ var _c_ = 0;
+     /*<<array.ml:480:2>>*/ return function(_d_){
+      /*<<?>>*/ return aux(_c_, _d_);};
+    /*<<array.ml:480:7>>*/ }
    function of_seq(i$2){
-     /*<<array.ml:484:2>>*/  /*<<array.ml:484:10>>*/ var
+     /*<<array.ml:494:2>>*/  /*<<array.ml:494:10>>*/ var
      l =
-        /*<<array.ml:484:10>>*/ caml_call3
+        /*<<array.ml:494:10>>*/ caml_call3
         (Stdlib_Seq[5],
          function(acc, x){
-           /*<<array.ml:484:38>>*/ return [0, x, acc];
-          /*<<array.ml:484:44>>*/ },
+           /*<<array.ml:494:38>>*/ return [0, x, acc];
+          /*<<array.ml:494:44>>*/ },
          0,
          i$2);
-    if(! l)  /*<<array.ml:473:10>>*/ return [0];
-     /*<<array.ml:475:16>>*/ var
+    if(! l)  /*<<array.ml:483:10>>*/ return [0];
+     /*<<array.ml:485:16>>*/ var
      tl = l[2],
      hd = l[1],
-      /*<<array.ml:475:16>>*/ len = list_length(0, l),
-      /*<<array.ml:476:14>>*/ a =
-        /*<<array.ml:476:14>>*/ caml_make_vect(len, hd),
-      /*<<array.ml:475:16>>*/ i$1 = len - 2 | 0,
+      /*<<array.ml:485:16>>*/ len = list_length(0, l),
+      /*<<array.ml:486:14>>*/ a =
+        /*<<array.ml:486:14>>*/ caml_array_make(len, hd),
+      /*<<array.ml:485:16>>*/ i$1 = len - 2 | 0,
      i = i$1,
      param = tl;
     for(;;){
-     if(! param)  /*<<array.ml:477:6>>*/ return a;
+     if(! param)  /*<<array.ml:487:6>>*/ return a;
      var tl$0 = param[2], hd$0 = param[1];
-      /*<<array.ml:479:20>>*/ a[1 + i] = hd$0;
-      /*<<array.ml:477:6>>*/  /*<<array.ml:477:6>>*/ var i$0 = i - 1 | 0;
+      /*<<array.ml:489:20>>*/ a[1 + i] = hd$0;
+      /*<<array.ml:487:6>>*/  /*<<array.ml:487:6>>*/ var i$0 = i - 1 | 0;
      i = i$0;
      param = tl$0;
     }
-    /*<<array.ml:485:15>>*/ }
+    /*<<array.ml:495:15>>*/ }
    var
     Stdlib_Array =
       [0,
@@ -8083,7 +8212,7 @@
        to_seqi,
        of_seq,
        Floatarray];
-   runtime.caml_register_global(16, Stdlib_Array, "Stdlib__Array");
+   runtime.caml_register_global(22, Stdlib_Array, "Stdlib__Array");
    return;
    /*<<?>>*/ }
   (globalThis));
@@ -8097,12 +8226,14 @@
     runtime = globalThis.jsoo_runtime,
     cst_Float_array_blit$1 = "Float.array.blit",
     cst_float_ml = "float.ml",
+    caml_array_make = runtime.caml_array_make,
     caml_check_bound = runtime.caml_check_bound,
     caml_float_compare = runtime.caml_float_compare,
     caml_floatarray_blit = runtime.caml_floatarray_blit,
     caml_floatarray_create = runtime.caml_floatarray_create,
+    caml_floatarray_make = runtime.caml_floatarray_make,
+    caml_floatarray_sub = runtime.caml_floatarray_sub,
     caml_hash = runtime.caml_hash,
-    caml_make_vect = runtime.caml_make_vect,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_nextafter_float = runtime.caml_nextafter_float,
     caml_signbit_float = runtime.caml_signbit_float,
@@ -8148,24 +8279,11 @@
     min_float = Stdlib[26],
     epsilon = Stdlib[27],
     of_string_opt = Stdlib[36],
-    to_string = Stdlib[35],
-    cst_Float_Array_init = "Float.Array.init",
-    cst_Float_Array_make_matrix = "Float.Array.make_matrix",
-    cst_Float_Array_init_matrix = "Float.Array.init_matrix",
-    cst_Float_Array_concat = "Float.Array.concat",
-    _a_ = [0, cst_float_ml, 254, 14],
-    cst_Float_Array_sub = "Float.Array.sub",
-    cst_Float_Array_fill = "Float.Array.fill",
-    cst_Float_array_blit = cst_Float_array_blit$1,
-    cst_Float_array_blit$0 = cst_Float_array_blit$1,
-    cst_Float_Array_iter2_arrays_m =
-      "Float.Array.iter2: arrays must have the same length",
-    cst_Float_Array_map2_arrays_mu =
-      "Float.Array.map2: arrays must have the same length";
+    to_string = Stdlib[35];
    function is_integer(x){
      /*<<float.ml:116:19>>*/ var
-     _aX_ = x ==  /*<<float.ml:116:23>>*/ runtime.caml_trunc_float(x) ? 1 : 0;
-    return _aX_ ? is_finite(x) : _aX_;
+     _aV_ = x ==  /*<<float.ml:116:23>>*/ runtime.caml_trunc_float(x) ? 1 : 0;
+    return _aV_ ? is_finite(x) : _aV_;
     /*<<float.ml:116:45>>*/ }
    function succ(x){
      /*<<float.ml:121:13>>*/ return  /*<<float.ml:121:13>>*/ caml_nextafter_float
@@ -8265,21 +8383,8 @@
      /*<<float.ml:170:13>>*/ return  /*<<float.ml:170:13>>*/ caml_hash
             (10, 100, 0, x);
     /*<<float.ml:170:41>>*/ }
-   function unsafe_fill(a, ofs, len, v){
-     /*<<float.ml:184:4>>*/ var _aV_ = (ofs + len | 0) - 1 | 0;
-    if(_aV_ >= ofs){
-     var i = ofs;
-     for(;;){
-       /*<<float.ml:184:36>>*/ a[1 + i] = v;
-       /*<<float.ml:184:36>>*/  /*<<float.ml:184:36>>*/ var _aW_ = i + 1 | 0;
-      if(_aV_ === i) break;
-      i = _aW_;
-     }
-    }
-    return 0;
-    /*<<float.ml:184:57>>*/ }
    function check(a, ofs, len, msg){
-     /*<<float.ml:190:4>>*/ var _aR_ = ofs < 0 ? 1 : 0;
+     /*<<float.ml:197:4>>*/ var _aR_ = ofs < 0 ? 1 : 0;
     if(_aR_)
      var _aS_ = _aR_;
     else{
@@ -8291,113 +8396,112 @@
        _aU_ = (ofs + len | 0) < 0 ? 1 : 0,
        _aS_ = _aU_ || (a.length - 1 < (ofs + len | 0) ? 1 : 0);
     }
-    return _aS_ ?  /*<<float.ml:191:6>>*/ caml_call1(Stdlib[1], msg) : _aS_;
-    /*<<float.ml:191:21>>*/ }
-   function make(n, v){
-     /*<<float.ml:194:4>>*/  /*<<float.ml:194:17>>*/ var
-     result =  /*<<float.ml:194:17>>*/ caml_floatarray_create(n);
-     /*<<float.ml:195:4>>*/ unsafe_fill(result, 0, n, v);
-     /*<<float.ml:195:4>>*/ return result;
-    /*<<float.ml:196:10>>*/ }
+    return _aS_ ?  /*<<float.ml:198:6>>*/ caml_call1(Stdlib[1], msg) : _aS_;
+    /*<<float.ml:198:21>>*/ }
+    /*<<float.ml:200:14>>*/ var
+     /*<<float.ml:200:14>>*/ empty =
+       /*<<float.ml:200:14>>*/ caml_floatarray_create(0),
+    cst_Float_Array_init = "Float.Array.init",
+    cst_Float_Array_make_matrix = "Float.Array.make_matrix",
+    cst_Float_Array_init_matrix = "Float.Array.init_matrix",
+    cst_Float_Array_concat = "Float.Array.concat",
+    _a_ = [0, cst_float_ml, 250, 14],
+    cst_Float_Array_sub = "Float.Array.sub",
+    cst_Float_Array_fill = "Float.Array.fill",
+    cst_Float_array_blit = cst_Float_array_blit$1,
+    cst_Float_array_blit$0 = cst_Float_array_blit$1,
+    cst_Float_Array_iter2_arrays_m =
+      "Float.Array.iter2: arrays must have the same length",
+    cst_Float_Array_map2_arrays_mu =
+      "Float.Array.map2: arrays must have the same length";
    function init(l, f){
-     /*<<float.ml:199:4>>*/ if(0 > l)
-      /*<<float.ml:199:18>>*/ return  /*<<float.ml:199:18>>*/ caml_call1
+     /*<<float.ml:203:4>>*/ if(0 > l)
+      /*<<float.ml:203:18>>*/ return  /*<<float.ml:203:18>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_init);
-     /*<<float.ml:201:16>>*/ var
-      /*<<float.ml:201:16>>*/ res =
-        /*<<float.ml:201:16>>*/ caml_floatarray_create(l),
-      /*<<float.ml:202:6>>*/ _aP_ = l - 1 | 0,
-      /*<<float.ml:201:16>>*/ _aO_ = 0;
+     /*<<float.ml:205:16>>*/ var
+      /*<<float.ml:205:16>>*/ res =
+        /*<<float.ml:205:16>>*/ caml_floatarray_create(l),
+      /*<<float.ml:206:6>>*/ _aP_ = l - 1 | 0,
+      /*<<float.ml:205:16>>*/ _aO_ = 0;
     if(_aP_ >= 0){
      var i = _aO_;
      for(;;){
-       /*<<float.ml:203:8>>*/ res[1 + i] =
-        /*<<float.ml:203:25>>*/ caml_call1(f, i);
-       /*<<float.ml:203:8>>*/  /*<<float.ml:203:8>>*/ var _aQ_ = i + 1 | 0;
+       /*<<float.ml:207:8>>*/ res[1 + i] =
+        /*<<float.ml:207:25>>*/ caml_call1(f, i);
+       /*<<float.ml:207:8>>*/  /*<<float.ml:207:8>>*/ var _aQ_ = i + 1 | 0;
       if(_aP_ === i) break;
       i = _aQ_;
      }
     }
-     /*<<float.ml:205:6>>*/ return res;
-    /*<<float.ml:205:9>>*/ }
+     /*<<float.ml:209:6>>*/ return res;
+    /*<<float.ml:209:9>>*/ }
    function make_matrix(sx, sy, v){
-     /*<<float.ml:209:4>>*/ if(sy < 0)
-      /*<<float.ml:209:19>>*/  /*<<float.ml:209:19>>*/ caml_call1
+     /*<<float.ml:213:4>>*/ if(sy < 0)
+      /*<<float.ml:213:19>>*/  /*<<float.ml:213:19>>*/ caml_call1
       (Stdlib[1], cst_Float_Array_make_matrix);
-     /*<<float.ml:210:14>>*/  /*<<float.ml:210:14>>*/ var
+     /*<<float.ml:214:14>>*/  /*<<float.ml:214:14>>*/ var
      res =
-        /*<<float.ml:210:14>>*/ caml_make_vect
-        (sx,  /*<<float.ml:210:28>>*/ caml_floatarray_create(0));
+        /*<<float.ml:214:14>>*/ caml_array_make
+        (sx,  /*<<float.ml:214:28>>*/ caml_floatarray_create(0));
     if(0 < sy){
-      /*<<float.ml:211:19>>*/ var
+      /*<<float.ml:215:19>>*/ var
       _aM_ = sx - 1 | 0,
-       /*<<float.ml:211:19>>*/ _aL_ = 0;
+       /*<<float.ml:215:19>>*/ _aL_ = 0;
      if(_aM_ >= 0){
       var x = _aL_;
       for(;;){
-        /*<<float.ml:213:8>>*/ res[1 + x] = make(sy, v);
-        /*<<float.ml:213:8>>*/  /*<<float.ml:213:8>>*/ var _aN_ = x + 1 | 0;
+        /*<<float.ml:217:8>>*/ res[1 + x] =
+         /*<<float.ml:217:31>>*/ caml_floatarray_make(sy, v);
+        /*<<float.ml:217:8>>*/  /*<<float.ml:217:8>>*/ var _aN_ = x + 1 | 0;
        if(_aM_ === x) break;
        x = _aN_;
       }
      }
     }
-     /*<<float.ml:216:4>>*/ return res;
-    /*<<float.ml:216:7>>*/ }
+     /*<<float.ml:220:4>>*/ return res;
+    /*<<float.ml:220:7>>*/ }
    function init_matrix(sx, sy, f){
-     /*<<float.ml:220:4>>*/ if(sy < 0)
-      /*<<float.ml:220:19>>*/  /*<<float.ml:220:19>>*/ caml_call1
+     /*<<float.ml:224:4>>*/ if(sy < 0)
+      /*<<float.ml:224:19>>*/  /*<<float.ml:224:19>>*/ caml_call1
       (Stdlib[1], cst_Float_Array_init_matrix);
-     /*<<float.ml:221:14>>*/  /*<<float.ml:221:14>>*/ var
+     /*<<float.ml:225:14>>*/  /*<<float.ml:225:14>>*/ var
      res =
-        /*<<float.ml:221:14>>*/ caml_make_vect
-        (sx,  /*<<float.ml:221:28>>*/ caml_floatarray_create(0));
+        /*<<float.ml:225:14>>*/ caml_array_make
+        (sx,  /*<<float.ml:225:28>>*/ caml_floatarray_create(0));
     if(0 < sy){
-      /*<<float.ml:222:19>>*/ var
+      /*<<float.ml:226:19>>*/ var
       _aG_ = sx - 1 | 0,
-       /*<<float.ml:222:19>>*/ _aF_ = 0;
+       /*<<float.ml:226:19>>*/ _aF_ = 0;
      if(_aG_ >= 0){
       var x = _aF_;
       for(;;){
-        /*<<float.ml:224:18>>*/ var
-         /*<<float.ml:224:18>>*/ row =
-           /*<<float.ml:224:18>>*/ caml_floatarray_create(sy),
-         /*<<float.ml:225:8>>*/ _aI_ = sy - 1 | 0,
-         /*<<float.ml:224:18>>*/ _aH_ = 0;
+        /*<<float.ml:228:18>>*/ var
+         /*<<float.ml:228:18>>*/ row =
+           /*<<float.ml:228:18>>*/ caml_floatarray_create(sy),
+         /*<<float.ml:229:8>>*/ _aI_ = sy - 1 | 0,
+         /*<<float.ml:228:18>>*/ _aH_ = 0;
        if(_aI_ >= 0){
         var y = _aH_;
         for(;;){
-          /*<<float.ml:226:10>>*/ row[1 + y] =
-           /*<<float.ml:226:27>>*/ caml_call2(f, x, y);
-          /*<<float.ml:226:10>>*/  /*<<float.ml:226:10>>*/ var
+          /*<<float.ml:230:10>>*/ row[1 + y] =
+           /*<<float.ml:230:27>>*/ caml_call2(f, x, y);
+          /*<<float.ml:230:10>>*/  /*<<float.ml:230:10>>*/ var
           _aK_ = y + 1 | 0;
          if(_aI_ === y) break;
          y = _aK_;
         }
        }
-        /*<<float.ml:228:8>>*/ res[1 + x] = row;
-        /*<<float.ml:222:19>>*/  /*<<float.ml:222:19>>*/ var _aJ_ = x + 1 | 0;
+        /*<<float.ml:232:8>>*/ res[1 + x] = row;
+        /*<<float.ml:226:19>>*/  /*<<float.ml:226:19>>*/ var _aJ_ = x + 1 | 0;
        if(_aG_ === x) break;
        x = _aJ_;
       }
      }
     }
-     /*<<float.ml:231:4>>*/ return res;
-    /*<<float.ml:231:7>>*/ }
-   function append(a1, a2){
-     /*<<float.ml:234:4>>*/ var
-     l1 = a1.length - 1,
-      /*<<float.ml:235:4>>*/ l2 = a2.length - 1,
-      /*<<float.ml:236:17>>*/ result =
-        /*<<float.ml:236:17>>*/ caml_floatarray_create(l1 + l2 | 0);
-     /*<<float.ml:237:4>>*/  /*<<float.ml:237:4>>*/ caml_floatarray_blit
-     (a1, 0, result, 0, l1);
-     /*<<float.ml:238:4>>*/  /*<<float.ml:238:4>>*/ caml_floatarray_blit
-     (a2, 0, result, l1, l2);
-     /*<<float.ml:238:4>>*/ return result;
-    /*<<float.ml:239:10>>*/ }
+     /*<<float.ml:235:4>>*/ return res;
+    /*<<float.ml:235:7>>*/ }
    function concat(l){
-     /*<<float.ml:250:4>>*/ var acc = 0, param = l;
+     /*<<float.ml:246:4>>*/ var acc = 0, param = l;
     for(;;){
      if(! param) break;
      var
@@ -8407,437 +8511,441 @@
       acc$0 =
         acc <= x
          ? x
-         :  /*<<float.ml:243:26>>*/ caml_call1
+         :  /*<<float.ml:239:26>>*/ caml_call1
            (Stdlib[1], cst_Float_Array_concat);
      acc = acc$0;
      param = tl;
     }
-     /*<<float.ml:251:17>>*/ var
-      /*<<float.ml:251:17>>*/ result =
-        /*<<float.ml:251:17>>*/ caml_floatarray_create(acc),
+     /*<<float.ml:247:17>>*/ var
+      /*<<float.ml:247:17>>*/ result =
+        /*<<float.ml:247:17>>*/ caml_floatarray_create(acc),
      l$0 = l,
      i = 0;
-     /*<<float.ml:253:6>>*/ for(;;){
+     /*<<float.ml:249:6>>*/ for(;;){
      if(! l$0){
-      if(i === acc)  /*<<float.ml:260:4>>*/ return result;
-       /*<<float.ml:254:14>>*/ throw  /*<<float.ml:254:14>>*/ caml_maybe_attach_backtrace
+      if(i === acc)  /*<<float.ml:256:4>>*/ return result;
+       /*<<float.ml:250:14>>*/ throw  /*<<float.ml:250:14>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _a_], 1);
      }
-      /*<<float.ml:256:8>>*/ var
+      /*<<float.ml:252:8>>*/ var
       tl$0 = l$0[2],
       hd$0 = l$0[1],
-       /*<<float.ml:256:8>>*/ hlen = hd$0.length - 1;
-      /*<<float.ml:257:8>>*/  /*<<float.ml:257:8>>*/ caml_floatarray_blit
+       /*<<float.ml:252:8>>*/ hlen = hd$0.length - 1;
+      /*<<float.ml:253:8>>*/  /*<<float.ml:253:8>>*/ caml_floatarray_blit
       (hd$0, 0, result, i, hlen);
      var i$0 = i + hlen | 0;
      l$0 = tl$0;
      i = i$0;
     }
-    /*<<float.ml:261:10>>*/ }
+    /*<<float.ml:257:10>>*/ }
    function sub(a, ofs, len){
-     /*<<float.ml:264:4>>*/ check(a, ofs, len, cst_Float_Array_sub);
-     /*<<float.ml:265:17>>*/  /*<<float.ml:265:17>>*/ var
-     result =  /*<<float.ml:265:17>>*/ caml_floatarray_create(len);
-     /*<<float.ml:266:4>>*/  /*<<float.ml:266:4>>*/ caml_floatarray_blit
-     (a, ofs, result, 0, len);
-     /*<<float.ml:266:4>>*/ return result;
-    /*<<float.ml:267:10>>*/ }
+     /*<<float.ml:260:4>>*/ check(a, ofs, len, cst_Float_Array_sub);
+     /*<<float.ml:261:4>>*/ return  /*<<float.ml:261:4>>*/ caml_floatarray_sub
+            (a, ofs, len);
+    /*<<float.ml:261:24>>*/ }
    function copy(a){
-     /*<<float.ml:270:4>>*/ var
-     l = a.length - 1,
-      /*<<float.ml:271:17>>*/ result =
-        /*<<float.ml:271:17>>*/ caml_floatarray_create(l);
-     /*<<float.ml:272:4>>*/  /*<<float.ml:272:4>>*/ caml_floatarray_blit
-     (a, 0, result, 0, l);
-     /*<<float.ml:272:4>>*/ return result;
-    /*<<float.ml:273:10>>*/ }
+     /*<<float.ml:264:4>>*/ var l = a.length - 1;
+     /*<<float.ml:265:4>>*/ return 0 === l
+            ? empty
+            :  /*<<float.ml:266:9>>*/ caml_floatarray_sub(a, 0, l);
+    /*<<float.ml:266:25>>*/ }
+   function append(a1, a2){
+     /*<<float.ml:269:4>>*/ var l1 = a1.length - 1;
+     /*<<float.ml:270:4>>*/ return 0 === l1
+            ? copy(a2)
+            : 0
+              === a2.length - 1
+              ?  /*<<float.ml:271:31>>*/ caml_floatarray_sub(a1, 0, l1)
+              :  /*<<float.ml:272:9>>*/ runtime.caml_floatarray_append(a1, a2);
+    /*<<float.ml:272:26>>*/ }
    function fill(a, ofs, len, v){
-     /*<<float.ml:276:4>>*/ check(a, ofs, len, cst_Float_Array_fill);
-     /*<<float.ml:276:4>>*/ return unsafe_fill(a, ofs, len, v);
-    /*<<float.ml:277:27>>*/ }
+     /*<<float.ml:275:4>>*/ check(a, ofs, len, cst_Float_Array_fill);
+     /*<<float.ml:276:4>>*/ return  /*<<float.ml:276:4>>*/ runtime.caml_floatarray_fill
+            (a, ofs, len, v);
+    /*<<float.ml:276:27>>*/ }
    function blit(src, sofs, dst, dofs, len){
-     /*<<float.ml:280:4>>*/ check(src, sofs, len, cst_Float_array_blit);
-     /*<<float.ml:281:4>>*/ check(dst, dofs, len, cst_Float_array_blit$0);
-     /*<<float.ml:282:4>>*/ return  /*<<float.ml:282:4>>*/ caml_floatarray_blit
+     /*<<float.ml:279:4>>*/ check(src, sofs, len, cst_Float_array_blit);
+     /*<<float.ml:280:4>>*/ check(dst, dofs, len, cst_Float_array_blit$0);
+     /*<<float.ml:281:4>>*/ return  /*<<float.ml:281:4>>*/ caml_floatarray_blit
             (src, sofs, dst, dofs, len);
-    /*<<float.ml:282:37>>*/ }
+    /*<<float.ml:281:37>>*/ }
    function to_list(a){
-     /*<<float.ml:285:4>>*/ return  /*<<float.ml:285:25>>*/ caml_call2
+     /*<<float.ml:284:4>>*/ return  /*<<float.ml:284:25>>*/ caml_call2
             (Stdlib_List[11],
              a.length - 1,
              function(_aE_){ /*<<?>>*/ return a[1 + _aE_];});
-    /*<<float.ml:285:39>>*/ }
+    /*<<float.ml:284:39>>*/ }
    function of_list(l){
-     /*<<float.ml:288:4>>*/ var
-      /*<<float.ml:288:17>>*/ result =
-        /*<<float.ml:288:17>>*/ caml_floatarray_create
-        ( /*<<float.ml:288:24>>*/ caml_call1(Stdlib_List[1], l)),
+     /*<<float.ml:287:4>>*/ var
+      /*<<float.ml:287:17>>*/ result =
+        /*<<float.ml:287:17>>*/ caml_floatarray_create
+        ( /*<<float.ml:287:24>>*/ caml_call1(Stdlib_List[1], l)),
      i = 0,
      l$0 = l;
-     /*<<float.ml:290:6>>*/ for(;;){
-     if(! l$0)  /*<<float.ml:289:4>>*/ return result;
+     /*<<float.ml:289:6>>*/ for(;;){
+     if(! l$0)  /*<<float.ml:288:4>>*/ return result;
      var t = l$0[2], h = l$0[1];
-      /*<<float.ml:292:18>>*/ result[1 + i] = h;
-      /*<<float.ml:289:4>>*/  /*<<float.ml:289:4>>*/ var i$0 = i + 1 | 0;
+      /*<<float.ml:291:18>>*/ result[1 + i] = h;
+      /*<<float.ml:288:4>>*/  /*<<float.ml:288:4>>*/ var i$0 = i + 1 | 0;
      i = i$0;
      l$0 = t;
     }
-    /*<<float.ml:294:12>>*/ }
+    /*<<float.ml:293:12>>*/ }
    function iter(f, a){
-     /*<<float.ml:298:4>>*/ var
+     /*<<float.ml:297:4>>*/ var
      _aC_ = a.length - 2 | 0,
-      /*<<float.ml:298:4>>*/ _aB_ = 0;
+      /*<<float.ml:297:4>>*/ _aB_ = 0;
     if(_aC_ >= 0){
      var i = _aB_;
      for(;;){
-       /*<<float.ml:298:33>>*/  /*<<float.ml:298:33>>*/ caml_call1
+       /*<<float.ml:297:33>>*/  /*<<float.ml:297:33>>*/ caml_call1
        (f, a[1 + i]);
-       /*<<float.ml:298:33>>*/  /*<<float.ml:298:33>>*/ var _aD_ = i + 1 | 0;
+       /*<<float.ml:297:33>>*/  /*<<float.ml:297:33>>*/ var _aD_ = i + 1 | 0;
       if(_aC_ === i) break;
       i = _aD_;
      }
     }
     return 0;
-    /*<<float.ml:298:56>>*/ }
+    /*<<float.ml:297:56>>*/ }
    function iter2(f, a, b){
-     /*<<float.ml:302:4>>*/ if(a.length - 1 !== b.length - 1)
-      /*<<float.ml:303:6>>*/ return  /*<<float.ml:303:6>>*/ caml_call1
+     /*<<float.ml:301:4>>*/ if(a.length - 1 !== b.length - 1)
+      /*<<float.ml:302:6>>*/ return  /*<<float.ml:302:6>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_iter2_arrays_m);
-     /*<<float.ml:305:6>>*/ var
+     /*<<float.ml:304:6>>*/ var
      _az_ = a.length - 2 | 0,
-      /*<<float.ml:305:6>>*/ _ay_ = 0;
+      /*<<float.ml:304:6>>*/ _ay_ = 0;
     if(_az_ >= 0){
      var i = _ay_;
      for(;;){
-       /*<<float.ml:305:35>>*/  /*<<float.ml:305:35>>*/ caml_call2
+       /*<<float.ml:304:35>>*/  /*<<float.ml:304:35>>*/ caml_call2
        (f, a[1 + i], b[1 + i]);
-       /*<<float.ml:305:35>>*/  /*<<float.ml:305:35>>*/ var _aA_ = i + 1 | 0;
+       /*<<float.ml:304:35>>*/  /*<<float.ml:304:35>>*/ var _aA_ = i + 1 | 0;
       if(_az_ === i) break;
       i = _aA_;
      }
     }
     return 0;
-    /*<<float.ml:305:75>>*/ }
+    /*<<float.ml:304:75>>*/ }
    function map(f, a){
-     /*<<float.ml:308:4>>*/ var
+     /*<<float.ml:307:4>>*/ var
      l = a.length - 1,
-      /*<<float.ml:309:12>>*/ r =
-        /*<<float.ml:309:12>>*/ caml_floatarray_create(l),
-      /*<<float.ml:310:4>>*/ _aw_ = l - 1 | 0,
-      /*<<float.ml:309:12>>*/ _av_ = 0;
+      /*<<float.ml:308:12>>*/ r =
+        /*<<float.ml:308:12>>*/ caml_floatarray_create(l),
+      /*<<float.ml:309:4>>*/ _aw_ = l - 1 | 0,
+      /*<<float.ml:308:12>>*/ _av_ = 0;
     if(_aw_ >= 0){
      var i = _av_;
      for(;;){
-       /*<<float.ml:311:6>>*/ r[1 + i] =
-        /*<<float.ml:311:21>>*/ caml_call1(f, a[1 + i]);
-       /*<<float.ml:311:6>>*/  /*<<float.ml:311:6>>*/ var _ax_ = i + 1 | 0;
+       /*<<float.ml:310:6>>*/ r[1 + i] =
+        /*<<float.ml:310:21>>*/ caml_call1(f, a[1 + i]);
+       /*<<float.ml:310:6>>*/  /*<<float.ml:310:6>>*/ var _ax_ = i + 1 | 0;
       if(_aw_ === i) break;
       i = _ax_;
      }
     }
-     /*<<float.ml:313:4>>*/ return r;
-    /*<<float.ml:313:5>>*/ }
+     /*<<float.ml:312:4>>*/ return r;
+    /*<<float.ml:312:5>>*/ }
    function map_inplace(f, a){
-     /*<<float.ml:317:4>>*/ var
+     /*<<float.ml:316:4>>*/ var
      _at_ = a.length - 2 | 0,
-      /*<<float.ml:317:4>>*/ _as_ = 0;
+      /*<<float.ml:316:4>>*/ _as_ = 0;
     if(_at_ >= 0){
      var i = _as_;
      for(;;){
-       /*<<float.ml:318:6>>*/ a[1 + i] =
-        /*<<float.ml:318:21>>*/ caml_call1(f, a[1 + i]);
-       /*<<float.ml:318:6>>*/  /*<<float.ml:318:6>>*/ var _au_ = i + 1 | 0;
+       /*<<float.ml:317:6>>*/ a[1 + i] =
+        /*<<float.ml:317:21>>*/ caml_call1(f, a[1 + i]);
+       /*<<float.ml:317:6>>*/  /*<<float.ml:317:6>>*/ var _au_ = i + 1 | 0;
       if(_at_ === i) break;
       i = _au_;
      }
     }
     return 0;
-    /*<<float.ml:319:8>>*/ }
+    /*<<float.ml:318:8>>*/ }
    function map2(f, a, b){
-     /*<<float.ml:322:4>>*/ var
+     /*<<float.ml:321:4>>*/ var
      la = a.length - 1,
-      /*<<float.ml:323:4>>*/ lb = b.length - 1;
+      /*<<float.ml:322:4>>*/ lb = b.length - 1;
     if(la !== lb)
-      /*<<float.ml:325:6>>*/ return  /*<<float.ml:325:6>>*/ caml_call1
+      /*<<float.ml:324:6>>*/ return  /*<<float.ml:324:6>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_map2_arrays_mu);
-     /*<<float.ml:327:14>>*/ var
-      /*<<float.ml:327:14>>*/ r =
-        /*<<float.ml:327:14>>*/ caml_floatarray_create(la),
-      /*<<float.ml:328:6>>*/ _aq_ = la - 1 | 0,
-      /*<<float.ml:327:14>>*/ _ap_ = 0;
+     /*<<float.ml:326:14>>*/ var
+      /*<<float.ml:326:14>>*/ r =
+        /*<<float.ml:326:14>>*/ caml_floatarray_create(la),
+      /*<<float.ml:327:6>>*/ _aq_ = la - 1 | 0,
+      /*<<float.ml:326:14>>*/ _ap_ = 0;
     if(_aq_ >= 0){
      var i = _ap_;
      for(;;){
-       /*<<float.ml:329:8>>*/ r[1 + i] =
-        /*<<float.ml:329:23>>*/ caml_call2(f, a[1 + i], b[1 + i]);
-       /*<<float.ml:329:8>>*/  /*<<float.ml:329:8>>*/ var _ar_ = i + 1 | 0;
+       /*<<float.ml:328:8>>*/ r[1 + i] =
+        /*<<float.ml:328:23>>*/ caml_call2(f, a[1 + i], b[1 + i]);
+       /*<<float.ml:328:8>>*/  /*<<float.ml:328:8>>*/ var _ar_ = i + 1 | 0;
       if(_aq_ === i) break;
       i = _ar_;
      }
     }
-     /*<<float.ml:331:6>>*/ return r;
-    /*<<float.ml:332:7>>*/ }
+     /*<<float.ml:330:6>>*/ return r;
+    /*<<float.ml:331:7>>*/ }
    function iteri(f, a){
-     /*<<float.ml:336:4>>*/ var
+     /*<<float.ml:335:4>>*/ var
      _an_ = a.length - 2 | 0,
-      /*<<float.ml:336:4>>*/ _am_ = 0;
+      /*<<float.ml:335:4>>*/ _am_ = 0;
     if(_an_ >= 0){
      var i = _am_;
      for(;;){
-       /*<<float.ml:336:33>>*/  /*<<float.ml:336:33>>*/ caml_call2
+       /*<<float.ml:335:33>>*/  /*<<float.ml:335:33>>*/ caml_call2
        (f, i, a[1 + i]);
-       /*<<float.ml:336:33>>*/  /*<<float.ml:336:33>>*/ var _ao_ = i + 1 | 0;
+       /*<<float.ml:335:33>>*/  /*<<float.ml:335:33>>*/ var _ao_ = i + 1 | 0;
       if(_an_ === i) break;
       i = _ao_;
      }
     }
     return 0;
-    /*<<float.ml:336:58>>*/ }
+    /*<<float.ml:335:58>>*/ }
    function mapi(f, a){
-     /*<<float.ml:339:4>>*/ var
+     /*<<float.ml:338:4>>*/ var
      l = a.length - 1,
-      /*<<float.ml:340:12>>*/ r =
-        /*<<float.ml:340:12>>*/ caml_floatarray_create(l),
-      /*<<float.ml:341:4>>*/ _ak_ = l - 1 | 0,
-      /*<<float.ml:340:12>>*/ _aj_ = 0;
+      /*<<float.ml:339:12>>*/ r =
+        /*<<float.ml:339:12>>*/ caml_floatarray_create(l),
+      /*<<float.ml:340:4>>*/ _ak_ = l - 1 | 0,
+      /*<<float.ml:339:12>>*/ _aj_ = 0;
     if(_ak_ >= 0){
      var i = _aj_;
      for(;;){
-       /*<<float.ml:342:6>>*/ r[1 + i] =
-        /*<<float.ml:342:21>>*/ caml_call2(f, i, a[1 + i]);
-       /*<<float.ml:342:6>>*/  /*<<float.ml:342:6>>*/ var _al_ = i + 1 | 0;
+       /*<<float.ml:341:6>>*/ r[1 + i] =
+        /*<<float.ml:341:21>>*/ caml_call2(f, i, a[1 + i]);
+       /*<<float.ml:341:6>>*/  /*<<float.ml:341:6>>*/ var _al_ = i + 1 | 0;
       if(_ak_ === i) break;
       i = _al_;
      }
     }
-     /*<<float.ml:344:4>>*/ return r;
-    /*<<float.ml:344:5>>*/ }
+     /*<<float.ml:343:4>>*/ return r;
+    /*<<float.ml:343:5>>*/ }
    function mapi_inplace(f, a){
-     /*<<float.ml:348:4>>*/ var
+     /*<<float.ml:347:4>>*/ var
      _ah_ = a.length - 2 | 0,
-      /*<<float.ml:348:4>>*/ _ag_ = 0;
+      /*<<float.ml:347:4>>*/ _ag_ = 0;
     if(_ah_ >= 0){
      var i = _ag_;
      for(;;){
-       /*<<float.ml:349:6>>*/ a[1 + i] =
-        /*<<float.ml:349:21>>*/ caml_call2(f, i, a[1 + i]);
-       /*<<float.ml:349:6>>*/  /*<<float.ml:349:6>>*/ var _ai_ = i + 1 | 0;
+       /*<<float.ml:348:6>>*/ a[1 + i] =
+        /*<<float.ml:348:21>>*/ caml_call2(f, i, a[1 + i]);
+       /*<<float.ml:348:6>>*/  /*<<float.ml:348:6>>*/ var _ai_ = i + 1 | 0;
       if(_ah_ === i) break;
       i = _ai_;
      }
     }
     return 0;
-    /*<<float.ml:350:8>>*/ }
+    /*<<float.ml:349:8>>*/ }
    function fold_left(f, x, a){
-     /*<<float.ml:354:4>>*/ var
-      /*<<float.ml:354:12>>*/ r = [0, x],
+     /*<<float.ml:353:4>>*/ var
+      /*<<float.ml:353:12>>*/ r = [0, x],
      _ae_ = a.length - 2 | 0,
-      /*<<float.ml:354:12>>*/ _ad_ = 0;
+      /*<<float.ml:353:12>>*/ _ad_ = 0;
     if(_ae_ >= 0){
      var i = _ad_;
      for(;;){
-      r[1] =  /*<<float.ml:356:11>>*/ caml_call2(f, r[1], a[1 + i]);
-       /*<<float.ml:355:4>>*/  /*<<float.ml:355:4>>*/ var _af_ = i + 1 | 0;
+      r[1] =  /*<<float.ml:355:11>>*/ caml_call2(f, r[1], a[1 + i]);
+       /*<<float.ml:354:4>>*/  /*<<float.ml:354:4>>*/ var _af_ = i + 1 | 0;
       if(_ae_ === i) break;
       i = _af_;
      }
     }
     return r[1];
-    /*<<float.ml:358:6>>*/ }
+    /*<<float.ml:357:6>>*/ }
    function fold_right(f, a, x){
-     /*<<float.ml:362:4>>*/ var
-      /*<<float.ml:362:12>>*/ r = [0, x],
-      /*<<float.ml:363:4>>*/ _ab_ = a.length - 2 | 0;
+     /*<<float.ml:361:4>>*/ var
+      /*<<float.ml:361:12>>*/ r = [0, x],
+      /*<<float.ml:362:4>>*/ _ab_ = a.length - 2 | 0;
     if(_ab_ >= 0){
      var i = _ab_;
      for(;;){
-      r[1] =  /*<<float.ml:364:11>>*/ caml_call2(f, a[1 + i], r[1]);
-       /*<<float.ml:363:4>>*/  /*<<float.ml:363:4>>*/ var _ac_ = i - 1 | 0;
+      r[1] =  /*<<float.ml:363:11>>*/ caml_call2(f, a[1 + i], r[1]);
+       /*<<float.ml:362:4>>*/  /*<<float.ml:362:4>>*/ var _ac_ = i - 1 | 0;
       if(0 === i) break;
       i = _ac_;
      }
     }
     return r[1];
-    /*<<float.ml:366:6>>*/ }
+    /*<<float.ml:365:6>>*/ }
    function exists(p, a){
-     /*<<float.ml:370:4>>*/ var n = a.length - 1, i = 0;
-     /*<<float.ml:372:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:372:20>>*/ return 0;
-      /*<<float.ml:373:14>>*/ if
-      ( /*<<float.ml:373:14>>*/ caml_call1(p, a[1 + i]))
-       /*<<float.ml:373:38>>*/ return 1;
-      /*<<float.ml:374:11>>*/  /*<<float.ml:374:11>>*/ var i$0 = i + 1 | 0;
+     /*<<float.ml:369:4>>*/ var n = a.length - 1, i = 0;
+     /*<<float.ml:371:6>>*/ for(;;){
+     if(i === n)  /*<<float.ml:371:20>>*/ return 0;
+      /*<<float.ml:372:14>>*/ if
+      ( /*<<float.ml:372:14>>*/ caml_call1(p, a[1 + i]))
+       /*<<float.ml:372:38>>*/ return 1;
+      /*<<float.ml:373:11>>*/  /*<<float.ml:373:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
-    /*<<float.ml:375:10>>*/ }
+    /*<<float.ml:374:10>>*/ }
    function for_all(p, a){
-     /*<<float.ml:379:4>>*/ var n = a.length - 1, i = 0;
-     /*<<float.ml:381:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:381:20>>*/ return 1;
-      /*<<float.ml:382:14>>*/ if
-      (!  /*<<float.ml:382:14>>*/ caml_call1(p, a[1 + i]))
-       /*<<float.ml:383:11>>*/ return 0;
-      /*<<float.ml:382:38>>*/  /*<<float.ml:382:38>>*/ var i$0 = i + 1 | 0;
+     /*<<float.ml:378:4>>*/ var n = a.length - 1, i = 0;
+     /*<<float.ml:380:6>>*/ for(;;){
+     if(i === n)  /*<<float.ml:380:20>>*/ return 1;
+      /*<<float.ml:381:14>>*/ if
+      (!  /*<<float.ml:381:14>>*/ caml_call1(p, a[1 + i]))
+       /*<<float.ml:382:11>>*/ return 0;
+      /*<<float.ml:381:38>>*/  /*<<float.ml:381:38>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
-    /*<<float.ml:384:10>>*/ }
+    /*<<float.ml:383:10>>*/ }
    function mem(x, a){
-     /*<<float.ml:388:4>>*/ var n = a.length - 1, i = 0;
-     /*<<float.ml:390:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:390:20>>*/ return 0;
-     if(0 ===  /*<<float.ml:391:22>>*/ caml_float_compare(a[1 + i], x))
-       /*<<float.ml:391:50>>*/ return 1;
-      /*<<float.ml:392:11>>*/  /*<<float.ml:392:11>>*/ var i$0 = i + 1 | 0;
+     /*<<float.ml:387:4>>*/ var n = a.length - 1, i = 0;
+     /*<<float.ml:389:6>>*/ for(;;){
+     if(i === n)  /*<<float.ml:389:20>>*/ return 0;
+     if(0 ===  /*<<float.ml:390:22>>*/ caml_float_compare(a[1 + i], x))
+       /*<<float.ml:390:50>>*/ return 1;
+      /*<<float.ml:391:11>>*/  /*<<float.ml:391:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
-    /*<<float.ml:394:10>>*/ }
+    /*<<float.ml:393:10>>*/ }
    function mem_ieee(x, a){
-     /*<<float.ml:398:4>>*/ var n = a.length - 1, i = 0;
-     /*<<float.ml:400:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:400:20>>*/ return 0;
-     if(x == a[1 + i])  /*<<float.ml:401:40>>*/ return 1;
-      /*<<float.ml:402:11>>*/  /*<<float.ml:402:11>>*/ var i$0 = i + 1 | 0;
+     /*<<float.ml:397:4>>*/ var n = a.length - 1, i = 0;
+     /*<<float.ml:399:6>>*/ for(;;){
+     if(i === n)  /*<<float.ml:399:20>>*/ return 0;
+     if(x == a[1 + i])  /*<<float.ml:400:40>>*/ return 1;
+      /*<<float.ml:401:11>>*/  /*<<float.ml:401:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
-    /*<<float.ml:404:10>>*/ }
+    /*<<float.ml:403:10>>*/ }
    function find_opt(p, a){
-     /*<<float.ml:408:4>>*/ var n = a.length - 1, i = 0;
-     /*<<float.ml:410:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:410:20>>*/ return 0;
-      /*<<float.ml:412:16>>*/  /*<<float.ml:412:16>>*/ var x = a[1 + i];
-      /*<<float.ml:413:11>>*/ if( /*<<float.ml:413:11>>*/ caml_call1(p, x))
-       /*<<float.ml:413:20>>*/ return [0, x];
-      /*<<float.ml:414:13>>*/  /*<<float.ml:414:13>>*/ var i$0 = i + 1 | 0;
+     /*<<float.ml:407:4>>*/ var n = a.length - 1, i = 0;
+     /*<<float.ml:409:6>>*/ for(;;){
+     if(i === n)  /*<<float.ml:409:20>>*/ return 0;
+      /*<<float.ml:411:16>>*/  /*<<float.ml:411:16>>*/ var x = a[1 + i];
+      /*<<float.ml:412:11>>*/ if( /*<<float.ml:412:11>>*/ caml_call1(p, x))
+       /*<<float.ml:412:20>>*/ return [0, x];
+      /*<<float.ml:413:13>>*/  /*<<float.ml:413:13>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
-    /*<<float.ml:416:10>>*/ }
+    /*<<float.ml:415:10>>*/ }
    function find_index(p, a){
-     /*<<float.ml:420:4>>*/ var n = a.length - 1, i = 0;
-     /*<<float.ml:422:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:422:20>>*/ return 0;
-      /*<<float.ml:423:14>>*/ if
-      ( /*<<float.ml:423:14>>*/ caml_call1(p, a[1 + i]))
-       /*<<float.ml:423:38>>*/ return [0, i];
-      /*<<float.ml:424:11>>*/  /*<<float.ml:424:11>>*/ var i$0 = i + 1 | 0;
+     /*<<float.ml:419:4>>*/ var n = a.length - 1, i = 0;
+     /*<<float.ml:421:6>>*/ for(;;){
+     if(i === n)  /*<<float.ml:421:20>>*/ return 0;
+      /*<<float.ml:422:14>>*/ if
+      ( /*<<float.ml:422:14>>*/ caml_call1(p, a[1 + i]))
+       /*<<float.ml:422:38>>*/ return [0, i];
+      /*<<float.ml:423:11>>*/  /*<<float.ml:423:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
-    /*<<float.ml:425:10>>*/ }
+    /*<<float.ml:424:10>>*/ }
    function find_map(f, a){
-     /*<<float.ml:429:4>>*/ var n = a.length - 1, i = 0;
-     /*<<float.ml:431:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:431:20>>*/ return 0;
-      /*<<float.ml:433:14>>*/  /*<<float.ml:433:14>>*/ var
-      r =  /*<<float.ml:433:14>>*/ caml_call1(f, a[1 + i]);
-     if(r)  /*<<float.ml:435:25>>*/ return r;
-      /*<<float.ml:434:18>>*/  /*<<float.ml:434:18>>*/ var i$0 = i + 1 | 0;
+     /*<<float.ml:428:4>>*/ var n = a.length - 1, i = 0;
+     /*<<float.ml:430:6>>*/ for(;;){
+     if(i === n)  /*<<float.ml:430:20>>*/ return 0;
+      /*<<float.ml:432:14>>*/  /*<<float.ml:432:14>>*/ var
+      r =  /*<<float.ml:432:14>>*/ caml_call1(f, a[1 + i]);
+     if(r)  /*<<float.ml:434:25>>*/ return r;
+      /*<<float.ml:433:18>>*/  /*<<float.ml:433:18>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
-    /*<<float.ml:437:10>>*/ }
+    /*<<float.ml:436:10>>*/ }
    function find_mapi(f, a){
-     /*<<float.ml:441:4>>*/ var n = a.length - 1, i = 0;
-     /*<<float.ml:443:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:443:20>>*/ return 0;
-      /*<<float.ml:445:14>>*/  /*<<float.ml:445:14>>*/ var
-      r =  /*<<float.ml:445:14>>*/ caml_call2(f, i, a[1 + i]);
-     if(r)  /*<<float.ml:447:25>>*/ return r;
-      /*<<float.ml:446:18>>*/  /*<<float.ml:446:18>>*/ var i$0 = i + 1 | 0;
+     /*<<float.ml:440:4>>*/ var n = a.length - 1, i = 0;
+     /*<<float.ml:442:6>>*/ for(;;){
+     if(i === n)  /*<<float.ml:442:20>>*/ return 0;
+      /*<<float.ml:444:14>>*/  /*<<float.ml:444:14>>*/ var
+      r =  /*<<float.ml:444:14>>*/ caml_call2(f, i, a[1 + i]);
+     if(r)  /*<<float.ml:446:25>>*/ return r;
+      /*<<float.ml:445:18>>*/  /*<<float.ml:445:18>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
-    /*<<float.ml:449:10>>*/ }
-    /*<<float.ml:452:2>>*/ var
-     /*<<float.ml:452:2>>*/ Bottom =
+    /*<<float.ml:448:10>>*/ }
+    /*<<float.ml:451:2>>*/ var
+     /*<<float.ml:451:2>>*/ Bottom =
       [248, "Stdlib.Float.Array.Bottom", runtime.caml_fresh_oo_id(0)],
-    _b_ = [0, cst_float_ml, 484, 6];
+    _b_ = [0, cst_float_ml, 483, 6];
    function sort(cmp, a){
     function maxson(l, i){
-      /*<<float.ml:455:6>>*/ var
+      /*<<float.ml:454:6>>*/ var
       i31 = ((i + i | 0) + i | 0) + 1 | 0,
-       /*<<float.ml:456:14>>*/ x = [0, i31];
+       /*<<float.ml:455:14>>*/ x = [0, i31];
      if((i31 + 2 | 0) < l){
-       /*<<float.ml:457:24>>*/ var
-        /*<<float.ml:457:24>>*/ _W_ = i31 + 1 | 0,
-        /*<<float.ml:458:27>>*/ _X_ = caml_check_bound(a, _W_)[1 + _W_];
+       /*<<float.ml:456:24>>*/ var
+        /*<<float.ml:456:24>>*/ _W_ = i31 + 1 | 0,
+        /*<<float.ml:457:27>>*/ _X_ = caml_check_bound(a, _W_)[1 + _W_];
       if
-       ( /*<<float.ml:458:11>>*/ caml_call2
+       ( /*<<float.ml:457:11>>*/ caml_call2
          (cmp, caml_check_bound(a, i31)[1 + i31], _X_)
         < 0)
        x[1] = i31 + 1 | 0;
-       /*<<float.ml:459:8>>*/ var
-        /*<<float.ml:459:8>>*/ _Y_ = i31 + 2 | 0,
-        /*<<float.ml:459:26>>*/ _Z_ = caml_check_bound(a, _Y_)[1 + _Y_],
+       /*<<float.ml:458:8>>*/ var
+        /*<<float.ml:458:8>>*/ _Y_ = i31 + 2 | 0,
+        /*<<float.ml:458:26>>*/ _Z_ = caml_check_bound(a, _Y_)[1 + _Y_],
        ___ = x[1];
       if
-       ( /*<<float.ml:459:11>>*/ caml_call2
+       ( /*<<float.ml:458:11>>*/ caml_call2
          (cmp, caml_check_bound(a, ___)[1 + ___], _Z_)
         < 0)
        x[1] = i31 + 2 | 0;
       return x[1];
      }
      if((i31 + 1 | 0) < l){
-       /*<<float.ml:462:40>>*/ var
+       /*<<float.ml:461:40>>*/ var
        _$_ = i31 + 1 | 0,
-        /*<<float.ml:462:40>>*/ _aa_ = caml_check_bound(a, _$_)[1 + _$_];
-       /*<<float.ml:462:24>>*/ if
+        /*<<float.ml:461:40>>*/ _aa_ = caml_check_bound(a, _$_)[1 + _$_];
+       /*<<float.ml:461:24>>*/ if
        (0
         >
-          /*<<float.ml:462:24>>*/ caml_call2
+          /*<<float.ml:461:24>>*/ caml_call2
           (cmp, caml_check_bound(a, i31)[1 + i31], _aa_))
-        /*<<float.ml:463:13>>*/ return i31 + 1 | 0;
+        /*<<float.ml:462:13>>*/ return i31 + 1 | 0;
      }
-     if(i31 < l)  /*<<float.ml:464:29>>*/ return i31;
-      /*<<float.ml:464:38>>*/ throw  /*<<float.ml:464:38>>*/ caml_maybe_attach_backtrace
+     if(i31 < l)  /*<<float.ml:463:29>>*/ return i31;
+      /*<<float.ml:463:38>>*/ throw  /*<<float.ml:463:38>>*/ caml_maybe_attach_backtrace
             ([0, Bottom, i], 1);
-     /*<<float.ml:464:54>>*/ }
+     /*<<float.ml:463:54>>*/ }
     var l = a.length - 1, _Q_ = ((l + 1 | 0) / 3 | 0) - 1 | 0;
     if(_Q_ >= 0){
      var i$6 = _Q_;
      for(;;){
-       /*<<float.ml:493:52>>*/  /*<<float.ml:493:52>>*/ var
+       /*<<float.ml:492:52>>*/  /*<<float.ml:492:52>>*/ var
        e$1 = caml_check_bound(a, i$6)[1 + i$6];
-       /*<<float.ml:475:24>>*/ try{
+       /*<<float.ml:474:24>>*/ try{
        var i = i$6;
-        /*<<float.ml:467:6>>*/ for(;;){
-         /*<<float.ml:467:14>>*/  /*<<float.ml:467:14>>*/ var
+        /*<<float.ml:466:6>>*/ for(;;){
+         /*<<float.ml:466:14>>*/  /*<<float.ml:466:14>>*/ var
          j = maxson(l, i);
-         /*<<float.ml:468:9>>*/ if
+         /*<<float.ml:467:9>>*/ if
          (0
           >=
-            /*<<float.ml:468:9>>*/ caml_call2
+            /*<<float.ml:467:9>>*/ caml_call2
             (cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
-         /*<<float.ml:469:16>>*/  /*<<float.ml:469:16>>*/ var
+         /*<<float.ml:468:16>>*/  /*<<float.ml:468:16>>*/ var
          _N_ = caml_check_bound(a, j)[1 + j];
-         /*<<float.ml:469:8>>*/ caml_check_bound(a, i)[1 + i] = _N_;
+         /*<<float.ml:468:8>>*/ caml_check_bound(a, i)[1 + i] = _N_;
         i = j;
        }
-        /*<<float.ml:471:15>>*/ caml_check_bound(a, i)[1 + i] = e$1;
+        /*<<float.ml:470:15>>*/ caml_check_bound(a, i)[1 + i] = e$1;
       }
       catch(exn$0){
        var exn = caml_wrap_exception(exn$0);
        if(exn[1] !== Bottom) throw caml_maybe_attach_backtrace(exn, 0);
        var i$0 = exn[2];
-        /*<<float.ml:475:63>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
+        /*<<float.ml:474:63>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
-       /*<<float.ml:493:40>>*/  /*<<float.ml:493:40>>*/ var _V_ = i$6 - 1 | 0;
+       /*<<float.ml:492:40>>*/  /*<<float.ml:492:40>>*/ var _V_ = i$6 - 1 | 0;
       if(0 === i$6) break;
       i$6 = _V_;
      }
     }
-     /*<<float.ml:494:4>>*/  /*<<float.ml:494:4>>*/ var _R_ = l - 1 | 0;
+     /*<<float.ml:493:4>>*/  /*<<float.ml:493:4>>*/ var _R_ = l - 1 | 0;
     if(_R_ >= 2){
      var i$4 = _R_;
      for(;;){
-       /*<<float.ml:495:14>>*/  /*<<float.ml:495:14>>*/ var
+       /*<<float.ml:494:14>>*/  /*<<float.ml:494:14>>*/ var
        e$0 = caml_check_bound(a, i$4)[1 + i$4];
-       /*<<float.ml:496:6>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
+       /*<<float.ml:495:6>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
       var i$5 = 0;
-       /*<<float.ml:481:21>>*/ try{
+       /*<<float.ml:480:21>>*/ try{
        var i$1 = i$5;
-        /*<<float.ml:477:6>>*/ for(;;){
-         /*<<float.ml:477:14>>*/ var
-          /*<<float.ml:477:14>>*/ j$0 = maxson(i$4, i$1),
-          /*<<float.ml:478:14>>*/ _O_ = caml_check_bound(a, j$0)[1 + j$0];
-         /*<<float.ml:478:6>>*/ caml_check_bound(a, i$1)[1 + i$1] = _O_;
+        /*<<float.ml:476:6>>*/ for(;;){
+         /*<<float.ml:476:14>>*/ var
+          /*<<float.ml:476:14>>*/ j$0 = maxson(i$4, i$1),
+          /*<<float.ml:477:14>>*/ _O_ = caml_check_bound(a, j$0)[1 + j$0];
+         /*<<float.ml:477:6>>*/ caml_check_bound(a, i$1)[1 + i$1] = _O_;
         i$1 = j$0;
        }
       }
@@ -8850,29 +8958,29 @@
         b:
         {
          var i$3 = i$2;
-          /*<<float.ml:483:6>>*/ for(;;){
+          /*<<float.ml:482:6>>*/ for(;;){
           var father = (i$3 - 1 | 0) / 3 | 0;
           if(i$3 === father)
-            /*<<float.ml:484:6>>*/ throw  /*<<float.ml:484:6>>*/ caml_maybe_attach_backtrace
+            /*<<float.ml:483:6>>*/ throw  /*<<float.ml:483:6>>*/ caml_maybe_attach_backtrace
                   ([0, Assert_failure, _b_], 1);
-           /*<<float.ml:485:9>>*/ if
+           /*<<float.ml:484:9>>*/ if
            (0
             <=
-              /*<<float.ml:485:9>>*/ caml_call2
+              /*<<float.ml:484:9>>*/ caml_call2
               (cmp, caml_check_bound(a, father)[1 + father], e$0))
            break;
-           /*<<float.ml:486:16>>*/  /*<<float.ml:486:16>>*/ var
+           /*<<float.ml:485:16>>*/  /*<<float.ml:485:16>>*/ var
            _P_ = caml_check_bound(a, father)[1 + father];
-           /*<<float.ml:486:8>>*/ caml_check_bound(a, i$3)[1 + i$3] = _P_;
+           /*<<float.ml:485:8>>*/ caml_check_bound(a, i$3)[1 + i$3] = _P_;
           if(0 >= father) break b;
           i$3 = father;
          }
-          /*<<float.ml:488:15>>*/ caml_check_bound(a, i$3)[1 + i$3] = e$0;
+          /*<<float.ml:487:15>>*/ caml_check_bound(a, i$3)[1 + i$3] = e$0;
          break a;
         }
-         /*<<float.ml:487:51>>*/ caml_check_bound(a, 0)[1] = e$0;
+         /*<<float.ml:486:51>>*/ caml_check_bound(a, 0)[1] = e$0;
        }
-        /*<<float.ml:494:4>>*/  /*<<float.ml:494:4>>*/ var _U_ = i$4 - 1 | 0;
+        /*<<float.ml:493:4>>*/  /*<<float.ml:493:4>>*/ var _U_ = i$4 - 1 | 0;
        if(2 === i$4) break;
        i$4 = _U_;
       }
@@ -8880,228 +8988,228 @@
     }
     var _S_ = 1 < l ? 1 : 0;
     if(_S_){
-      /*<<float.ml:499:27>>*/  /*<<float.ml:499:27>>*/ var
+      /*<<float.ml:498:27>>*/  /*<<float.ml:498:27>>*/ var
       e = caml_check_bound(a, 1)[2];
-      /*<<float.ml:499:40>>*/ a[2] = caml_check_bound(a, 0)[1];
-      /*<<float.ml:499:59>>*/ a[1] = e;
+      /*<<float.ml:498:40>>*/ a[2] = caml_check_bound(a, 0)[1];
+      /*<<float.ml:498:59>>*/ a[1] = e;
      var _T_ = 0;
     }
     else
      var _T_ = _S_;
-     /*<<float.ml:499:59>>*/ return _T_;
-    /*<<float.ml:499:69>>*/ }
+     /*<<float.ml:498:59>>*/ return _T_;
+    /*<<float.ml:498:69>>*/ }
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
-      /*<<float.ml:505:6>>*/ var
+      /*<<float.ml:504:6>>*/ var
       src1r = src1ofs + src1len | 0,
       src2r = src2ofs + src2len | 0,
-       /*<<float.ml:522:46>>*/ s2$1 =
+       /*<<float.ml:521:46>>*/ s2$1 =
         caml_check_bound(src2, src2ofs)[1 + src2ofs],
-       /*<<float.ml:522:22>>*/ s1$1 =
+       /*<<float.ml:521:22>>*/ s1$1 =
         caml_check_bound(a, src1ofs)[1 + src1ofs],
       i1 = src1ofs,
       s1 = s1$1,
       i2 = src2ofs,
       s2 = s2$1,
       d = dstofs;
-      /*<<float.ml:507:8>>*/ for(;;)
-       /*<<float.ml:507:11>>*/ if
-       (0 <  /*<<float.ml:507:11>>*/ caml_call2(cmp, s1, s2)){
-        /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
-        /*<<float.ml:515:10>>*/  /*<<float.ml:515:10>>*/ var
+      /*<<float.ml:506:8>>*/ for(;;)
+       /*<<float.ml:506:11>>*/ if
+       (0 <  /*<<float.ml:506:11>>*/ caml_call2(cmp, s1, s2)){
+        /*<<float.ml:514:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
+        /*<<float.ml:514:10>>*/  /*<<float.ml:514:10>>*/ var
         i2$0 = i2 + 1 | 0;
        if(i2$0 >= src2r) return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0);
-        /*<<float.ml:518:12>>*/ var
-         /*<<float.ml:518:12>>*/ d$0 = d + 1 | 0,
-         /*<<float.ml:518:26>>*/ s2$0 = caml_check_bound(src2, i2$0)[1 + i2$0];
+        /*<<float.ml:517:12>>*/ var
+         /*<<float.ml:517:12>>*/ d$0 = d + 1 | 0,
+         /*<<float.ml:517:26>>*/ s2$0 = caml_check_bound(src2, i2$0)[1 + i2$0];
        i2 = i2$0;
        s2 = s2$0;
        d = d$0;
       }
       else{
-        /*<<float.ml:508:10>>*/ caml_check_bound(dst, d)[1 + d] = s1;
-        /*<<float.ml:508:10>>*/  /*<<float.ml:508:10>>*/ var
+        /*<<float.ml:507:10>>*/ caml_check_bound(dst, d)[1 + d] = s1;
+        /*<<float.ml:507:10>>*/  /*<<float.ml:507:10>>*/ var
         i1$0 = i1 + 1 | 0;
        if(i1$0 >= src1r)
         return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0);
-        /*<<float.ml:511:12>>*/ var
-         /*<<float.ml:511:12>>*/ d$1 = d + 1 | 0,
-         /*<<float.ml:511:20>>*/ s1$0 = caml_check_bound(a, i1$0)[1 + i1$0];
+        /*<<float.ml:510:12>>*/ var
+         /*<<float.ml:510:12>>*/ d$1 = d + 1 | 0,
+         /*<<float.ml:510:20>>*/ s1$0 = caml_check_bound(a, i1$0)[1 + i1$0];
        i1 = i1$0;
        s1 = s1$0;
        d = d$1;
       }
-     /*<<float.ml:522:72>>*/ }
+     /*<<float.ml:521:72>>*/ }
     function isortto(srcofs, dst, dstofs, len){
-      /*<<float.ml:525:6>>*/ var
+      /*<<float.ml:524:6>>*/ var
       _F_ = len - 1 | 0,
-       /*<<float.ml:525:6>>*/ _E_ = 0;
+       /*<<float.ml:524:6>>*/ _E_ = 0;
      if(_F_ >= 0){
       var i = _E_;
       for(;;){
-        /*<<float.ml:526:16>>*/ var
+        /*<<float.ml:525:16>>*/ var
         _G_ = srcofs + i | 0,
-         /*<<float.ml:526:16>>*/ e = caml_check_bound(a, _G_)[1 + _G_],
-         /*<<float.ml:527:16>>*/ j = [0, (dstofs + i | 0) - 1 | 0];
+         /*<<float.ml:525:16>>*/ e = caml_check_bound(a, _G_)[1 + _G_],
+         /*<<float.ml:526:16>>*/ j = [0, (dstofs + i | 0) - 1 | 0];
        for(;;){
         if(dstofs > j[1]) break;
         var _H_ = j[1];
-         /*<<float.ml:528:31>>*/ if
+         /*<<float.ml:527:31>>*/ if
          (0
           >=
-            /*<<float.ml:528:31>>*/ caml_call2
+            /*<<float.ml:527:31>>*/ caml_call2
             (cmp, caml_check_bound(dst, _H_)[1 + _H_], e))
          break;
-         /*<<float.ml:529:27>>*/ var
+         /*<<float.ml:528:27>>*/ var
          _I_ = j[1],
-          /*<<float.ml:529:27>>*/ _J_ = caml_check_bound(dst, _I_)[1 + _I_],
+          /*<<float.ml:528:27>>*/ _J_ = caml_check_bound(dst, _I_)[1 + _I_],
          _K_ = j[1] + 1 | 0;
-         /*<<float.ml:529:10>>*/ caml_check_bound(dst, _K_)[1 + _K_] = _J_;
+         /*<<float.ml:528:10>>*/ caml_check_bound(dst, _K_)[1 + _K_] = _J_;
         j[1]--;
        }
        var _L_ = j[1] + 1 | 0;
-        /*<<float.ml:532:8>>*/ caml_check_bound(dst, _L_)[1 + _L_] = e;
-        /*<<float.ml:525:6>>*/  /*<<float.ml:525:6>>*/ var _M_ = i + 1 | 0;
+        /*<<float.ml:531:8>>*/ caml_check_bound(dst, _L_)[1 + _L_] = e;
+        /*<<float.ml:524:6>>*/  /*<<float.ml:524:6>>*/ var _M_ = i + 1 | 0;
        if(_F_ === i) break;
        i = _M_;
       }
      }
      return 0;
-     /*<<float.ml:533:10>>*/ }
+     /*<<float.ml:532:10>>*/ }
     function sortto(srcofs, dst, dstofs, len){
-      /*<<float.ml:536:6>>*/ if(len <= 5)
-       /*<<float.ml:536:28>>*/ return isortto(srcofs, dst, dstofs, len);
+      /*<<float.ml:535:6>>*/ if(len <= 5)
+       /*<<float.ml:535:28>>*/ return isortto(srcofs, dst, dstofs, len);
      var l1 = len / 2 | 0, l2 = len - l1 | 0;
-      /*<<float.ml:539:8>>*/ sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
-      /*<<float.ml:540:8>>*/ sortto(srcofs, a, srcofs + l2 | 0, l1);
-      /*<<float.ml:540:8>>*/ return merge
+      /*<<float.ml:538:8>>*/ sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
+      /*<<float.ml:539:8>>*/ sortto(srcofs, a, srcofs + l2 | 0, l1);
+      /*<<float.ml:539:8>>*/ return merge
              (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs);
-     /*<<float.ml:542:9>>*/ }
+     /*<<float.ml:541:9>>*/ }
     var l = a.length - 1;
-    if(l <= 5)  /*<<float.ml:545:24>>*/ return isortto(0, a, 0, l);
-     /*<<float.ml:548:14>>*/ var
+    if(l <= 5)  /*<<float.ml:544:24>>*/ return isortto(0, a, 0, l);
+     /*<<float.ml:547:14>>*/ var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
-      /*<<float.ml:548:14>>*/ t =
-        /*<<float.ml:548:14>>*/ caml_floatarray_create(l2);
-     /*<<float.ml:549:6>>*/ sortto(l1, t, 0, l2);
-     /*<<float.ml:550:6>>*/ sortto(0, a, l2, l1);
-     /*<<float.ml:550:6>>*/ return merge(l2, l1, t, 0, l2, a, 0);
-    /*<<float.ml:552:7>>*/ }
+      /*<<float.ml:547:14>>*/ t =
+        /*<<float.ml:547:14>>*/ caml_floatarray_create(l2);
+     /*<<float.ml:548:6>>*/ sortto(l1, t, 0, l2);
+     /*<<float.ml:549:6>>*/ sortto(0, a, l2, l1);
+     /*<<float.ml:549:6>>*/ return merge(l2, l1, t, 0, l2, a, 0);
+    /*<<float.ml:551:7>>*/ }
    function shuffle(rand, a){
-     /*<<float.ml:558:4>>*/ var _C_ = a.length - 2 | 0;
+     /*<<float.ml:557:4>>*/ var _C_ = a.length - 2 | 0;
     if(_C_ >= 1){
      var i = _C_;
      for(;;){
-       /*<<float.ml:559:14>>*/ var
-        /*<<float.ml:559:14>>*/ j =
-          /*<<float.ml:559:14>>*/ caml_call1(rand, i + 1 | 0),
-        /*<<float.ml:560:14>>*/ v = a[1 + i];
-       /*<<float.ml:561:6>>*/ a[1 + i] = caml_check_bound(a, j)[1 + j];
-       /*<<float.ml:562:6>>*/ a[1 + j] = v;
+       /*<<float.ml:558:14>>*/ var
+        /*<<float.ml:558:14>>*/ j =
+          /*<<float.ml:558:14>>*/ caml_call1(rand, i + 1 | 0),
+        /*<<float.ml:559:14>>*/ v = a[1 + i];
+       /*<<float.ml:560:6>>*/ a[1 + i] = caml_check_bound(a, j)[1 + j];
+       /*<<float.ml:561:6>>*/ a[1 + j] = v;
       var _D_ = i - 1 | 0;
       if(1 === i) break;
       i = _D_;
      }
     }
     return 0;
-    /*<<float.ml:563:8>>*/ }
+    /*<<float.ml:562:8>>*/ }
    function to_seq(a){
     function aux(i, param){
-      /*<<float.ml:568:6>>*/ if(i >= a.length - 1)
-       /*<<float.ml:572:11>>*/ return 0;
-      /*<<float.ml:570:16>>*/ var
-       /*<<float.ml:570:16>>*/ x = a[1 + i],
-       /*<<float.ml:570:16>>*/ _A_ = i + 1 | 0;
-      /*<<float.ml:571:8>>*/ return [0,
+      /*<<float.ml:567:6>>*/ if(i >= a.length - 1)
+       /*<<float.ml:571:11>>*/ return 0;
+      /*<<float.ml:569:16>>*/ var
+       /*<<float.ml:569:16>>*/ x = a[1 + i],
+       /*<<float.ml:569:16>>*/ _A_ = i + 1 | 0;
+      /*<<float.ml:570:8>>*/ return [0,
              x,
              function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}];
-     /*<<float.ml:572:18>>*/ }
-     /*<<float.ml:574:4>>*/ var _y_ = 0;
-     /*<<float.ml:574:4>>*/ return function(_z_){
+     /*<<float.ml:571:18>>*/ }
+     /*<<float.ml:573:4>>*/ var _y_ = 0;
+     /*<<float.ml:573:4>>*/ return function(_z_){
       /*<<?>>*/ return aux(_y_, _z_);};
-    /*<<float.ml:574:9>>*/ }
+    /*<<float.ml:573:9>>*/ }
    function to_seqi(a){
     function aux(i, param){
-      /*<<float.ml:579:6>>*/ if(i >= a.length - 1)
-       /*<<float.ml:583:11>>*/ return 0;
-      /*<<float.ml:581:16>>*/ var
-       /*<<float.ml:581:16>>*/ x = a[1 + i],
-       /*<<float.ml:581:16>>*/ _w_ = i + 1 | 0;
-      /*<<float.ml:582:8>>*/ return [0,
+      /*<<float.ml:578:6>>*/ if(i >= a.length - 1)
+       /*<<float.ml:582:11>>*/ return 0;
+      /*<<float.ml:580:16>>*/ var
+       /*<<float.ml:580:16>>*/ x = a[1 + i],
+       /*<<float.ml:580:16>>*/ _w_ = i + 1 | 0;
+      /*<<float.ml:581:8>>*/ return [0,
              [0, i, x],
              function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}];
-     /*<<float.ml:583:18>>*/ }
-     /*<<float.ml:585:4>>*/ var _u_ = 0;
-     /*<<float.ml:585:4>>*/ return function(_v_){
+     /*<<float.ml:582:18>>*/ }
+     /*<<float.ml:584:4>>*/ var _u_ = 0;
+     /*<<float.ml:584:4>>*/ return function(_v_){
       /*<<?>>*/ return aux(_u_, _v_);};
-    /*<<float.ml:585:9>>*/ }
+    /*<<float.ml:584:9>>*/ }
    function of_seq(i$2){
-     /*<<float.ml:599:4>>*/ var
-      /*<<float.ml:599:12>>*/ l =
-        /*<<float.ml:599:12>>*/ caml_call3
+     /*<<float.ml:598:4>>*/ var
+      /*<<float.ml:598:12>>*/ l =
+        /*<<float.ml:598:12>>*/ caml_call3
         (Stdlib_Seq[5],
          function(acc, x){
-           /*<<float.ml:599:40>>*/ return [0, x, acc];
-          /*<<float.ml:599:46>>*/ },
+           /*<<float.ml:598:40>>*/ return [0, x, acc];
+          /*<<float.ml:598:46>>*/ },
          0,
          i$2),
-      /*<<float.ml:589:14>>*/ len =
-        /*<<float.ml:589:14>>*/ caml_call1(Stdlib_List[1], l),
-      /*<<float.ml:590:12>>*/ a =
-        /*<<float.ml:590:12>>*/ caml_floatarray_create(len),
-      /*<<float.ml:589:14>>*/ i$1 = len - 1 | 0,
+      /*<<float.ml:588:14>>*/ len =
+        /*<<float.ml:588:14>>*/ caml_call1(Stdlib_List[1], l),
+      /*<<float.ml:589:12>>*/ a =
+        /*<<float.ml:589:12>>*/ caml_floatarray_create(len),
+      /*<<float.ml:588:14>>*/ i$1 = len - 1 | 0,
      i = i$1,
      param = l;
     for(;;){
-     if(! param)  /*<<float.ml:591:4>>*/ return a;
+     if(! param)  /*<<float.ml:590:4>>*/ return a;
      var tl = param[2], hd = param[1];
-      /*<<float.ml:593:18>>*/ a[1 + i] = hd;
-      /*<<float.ml:591:4>>*/  /*<<float.ml:591:4>>*/ var i$0 = i - 1 | 0;
+      /*<<float.ml:592:18>>*/ a[1 + i] = hd;
+      /*<<float.ml:590:4>>*/  /*<<float.ml:590:4>>*/ var i$0 = i - 1 | 0;
      i = i$0;
      param = tl;
     }
-    /*<<float.ml:600:17>>*/ }
+    /*<<float.ml:599:17>>*/ }
    function map_to_array(f, a){
-     /*<<float.ml:604:4>>*/ var l = a.length - 1;
-     /*<<float.ml:605:4>>*/ if(0 === l)  /*<<float.ml:605:18>>*/ return [0];
-     /*<<float.ml:606:14>>*/ var
-      /*<<float.ml:606:14>>*/ r =
-        /*<<float.ml:606:14>>*/ caml_make_vect
-        (l,  /*<<float.ml:606:27>>*/ caml_call1(f, a[1])),
-      /*<<float.ml:607:6>>*/ _s_ = l - 1 | 0,
-      /*<<float.ml:606:14>>*/ _r_ = 1;
+     /*<<float.ml:603:4>>*/ var l = a.length - 1;
+     /*<<float.ml:604:4>>*/ if(0 === l)  /*<<float.ml:604:18>>*/ return [0];
+     /*<<float.ml:605:14>>*/ var
+      /*<<float.ml:605:14>>*/ r =
+        /*<<float.ml:605:14>>*/ caml_array_make
+        (l,  /*<<float.ml:605:27>>*/ caml_call1(f, a[1])),
+      /*<<float.ml:606:6>>*/ _s_ = l - 1 | 0,
+      /*<<float.ml:605:14>>*/ _r_ = 1;
     if(_s_ >= 1){
      var i = _r_;
      for(;;){
-       /*<<float.ml:608:8>>*/ r[1 + i] =
-        /*<<float.ml:608:29>>*/ caml_call1(f, a[1 + i]);
-       /*<<float.ml:608:8>>*/  /*<<float.ml:608:8>>*/ var _t_ = i + 1 | 0;
+       /*<<float.ml:607:8>>*/ r[1 + i] =
+        /*<<float.ml:607:29>>*/ caml_call1(f, a[1 + i]);
+       /*<<float.ml:607:8>>*/  /*<<float.ml:607:8>>*/ var _t_ = i + 1 | 0;
       if(_s_ === i) break;
       i = _t_;
      }
     }
-     /*<<float.ml:610:6>>*/ return r;
-    /*<<float.ml:611:7>>*/ }
+     /*<<float.ml:609:6>>*/ return r;
+    /*<<float.ml:610:7>>*/ }
    function map_from_array(f, a){
-     /*<<float.ml:614:4>>*/ var
+     /*<<float.ml:613:4>>*/ var
      l = a.length - 1,
-      /*<<float.ml:615:12>>*/ r =
-        /*<<float.ml:615:12>>*/ caml_floatarray_create(l),
-      /*<<float.ml:616:4>>*/ _p_ = l - 1 | 0,
-      /*<<float.ml:615:12>>*/ _o_ = 0;
+      /*<<float.ml:614:12>>*/ r =
+        /*<<float.ml:614:12>>*/ caml_floatarray_create(l),
+      /*<<float.ml:615:4>>*/ _p_ = l - 1 | 0,
+      /*<<float.ml:614:12>>*/ _o_ = 0;
     if(_p_ >= 0){
      var i = _o_;
      for(;;){
-       /*<<float.ml:617:6>>*/ r[1 + i] =
-        /*<<float.ml:617:21>>*/ caml_call1(f, a[1 + i]);
-       /*<<float.ml:617:6>>*/  /*<<float.ml:617:6>>*/ var _q_ = i + 1 | 0;
+       /*<<float.ml:616:6>>*/ r[1 + i] =
+        /*<<float.ml:616:21>>*/ caml_call1(f, a[1 + i]);
+       /*<<float.ml:616:6>>*/  /*<<float.ml:616:6>>*/ var _q_ = i + 1 | 0;
       if(_p_ === i) break;
       i = _q_;
      }
     }
-     /*<<float.ml:619:4>>*/ return r;
-    /*<<float.ml:619:5>>*/ }
+     /*<<float.ml:618:4>>*/ return r;
+    /*<<float.ml:618:5>>*/ }
    var
     Stdlib_Float =
       [0,
@@ -9144,7 +9252,7 @@
           /*<<?>>*/ caml_check_bound(_k_, _j_)[1 + _j_] = _i_;
          return 0;
         },
-        make,
+        caml_floatarray_make,
         caml_floatarray_create,
         init,
         make_matrix,
@@ -9193,7 +9301,7 @@
           /*<<?>>*/ caml_check_bound(_e_, _d_)[1 + _d_] = _c_;
          return 0;
         },
-        make,
+        caml_floatarray_make,
         caml_floatarray_create,
         init,
         make_matrix,
@@ -10000,9 +10108,9 @@
    "use strict";
    var
     runtime = globalThis.jsoo_runtime,
+    caml_array_make = runtime.caml_array_make,
     caml_check_bound = runtime.caml_check_bound,
     caml_fresh_oo_id = runtime.caml_fresh_oo_id,
-    caml_make_vect = runtime.caml_make_vect,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_wrap_exception = runtime.caml_wrap_exception;
     /*<<?>>*/ function caml_call1(f, a0){
@@ -10031,10 +10139,10 @@
       [248, "Stdlib.Parsing.Parse_error", caml_fresh_oo_id(0)],
      /*<<parsing.ml:90:2>>*/ env =
       [0,
-        /*<<parsing.ml:90:14>>*/ caml_make_vect(100, 0),
-        /*<<parsing.ml:91:14>>*/ caml_make_vect(100, 0),
-        /*<<parsing.ml:92:23>>*/ caml_make_vect(100, Stdlib_Lexing[1]),
-        /*<<parsing.ml:93:21>>*/ caml_make_vect(100, Stdlib_Lexing[1]),
+        /*<<parsing.ml:90:14>>*/ caml_array_make(100, 0),
+        /*<<parsing.ml:91:14>>*/ caml_array_make(100, 0),
+        /*<<parsing.ml:92:23>>*/ caml_array_make(100, Stdlib_Lexing[1]),
+        /*<<parsing.ml:93:21>>*/ caml_array_make(100, Stdlib_Lexing[1]),
        100,
        0,
        0,
@@ -10053,13 +10161,13 @@
      oldsize = env[5],
      newsize = oldsize * 2 | 0,
       /*<<parsing.ml:110:14>>*/ new_s =
-        /*<<parsing.ml:110:14>>*/ caml_make_vect(newsize, 0),
+        /*<<parsing.ml:110:14>>*/ caml_array_make(newsize, 0),
       /*<<parsing.ml:111:14>>*/ new_v =
-        /*<<parsing.ml:111:14>>*/ caml_make_vect(newsize, 0),
+        /*<<parsing.ml:111:14>>*/ caml_array_make(newsize, 0),
       /*<<parsing.ml:112:18>>*/ new_start =
-        /*<<parsing.ml:112:18>>*/ caml_make_vect(newsize, Stdlib_Lexing[1]),
+        /*<<parsing.ml:112:18>>*/ caml_array_make(newsize, Stdlib_Lexing[1]),
       /*<<parsing.ml:113:16>>*/ new_end =
-        /*<<parsing.ml:113:16>>*/ caml_make_vect(newsize, Stdlib_Lexing[1]);
+        /*<<parsing.ml:113:16>>*/ caml_array_make(newsize, Stdlib_Lexing[1]);
      /*<<parsing.ml:114:4>>*/  /*<<parsing.ml:114:4>>*/ caml_call5
      (Stdlib_Array[9], env[1], 0, new_s, 0, oldsize);
     env[1] = new_s;
@@ -11063,7 +11171,7 @@
          if(_q_[2]){
            /*<<set.ml:588:28>>*/ var
             /*<<set.ml:588:28>>*/ l$0 =
-              /*<<set.ml:588:28>>*/ caml_call2(Stdlib_List[62], Ord[1], l),
+              /*<<set.ml:588:28>>*/ caml_call2(Stdlib_List[66], Ord[1], l),
            sub =
              function(n, l){
                /*<<set.ml:559:8>>*/ if(3 >= n >>> 0)
@@ -12377,7 +12485,7 @@
      /*<<stack.ml:59:19>>*/ return caml_call3(Stdlib_List[26], f, acc, s[1]);
     /*<<stack.ml:59:43>>*/ }
    function to_seq(s){
-     /*<<stack.ml:63:15>>*/ return caml_call1(Stdlib_List[64], s[1]);
+     /*<<stack.ml:63:15>>*/ return caml_call1(Stdlib_List[68], s[1]);
     /*<<stack.ml:63:30>>*/ }
    function add_seq(q, i){
      /*<<stack.ml:65:18>>*/ return  /*<<stack.ml:65:18>>*/ caml_call2
@@ -12472,13 +12580,13 @@
      /*<<queue.ml:66:24>>*/ return [0, content];
     /*<<queue.ml:66:36>>*/ }
    function take(q){
-     /*<<queue.ml:72:2>>*/ var _f_ = q[2];
-    if(! _f_)
+     /*<<queue.ml:72:2>>*/ var _g_ = q[2];
+    if(! _g_)
       /*<<queue.ml:73:11>>*/ throw  /*<<queue.ml:73:11>>*/ caml_maybe_attach_backtrace
             (Empty, 1);
-    var content = _f_[1];
-    if(_f_[2]){
-     var next = _f_[2];
+    var content = _g_[1];
+    if(_g_[2]){
+     var next = _g_[2];
      q[1] = q[1] - 1 | 0;
      q[2] = next;
       /*<<queue.ml:80:4>>*/ return content;
@@ -12487,11 +12595,11 @@
      /*<<queue.ml:75:4>>*/ return content;
     /*<<queue.ml:80:11>>*/ }
    function take_opt(q){
-     /*<<queue.ml:83:2>>*/ var _e_ = q[2];
-    if(! _e_)  /*<<queue.ml:84:11>>*/ return 0;
-    var content = _e_[1];
-    if(_e_[2]){
-     var next = _e_[2];
+     /*<<queue.ml:83:2>>*/ var _f_ = q[2];
+    if(! _f_)  /*<<queue.ml:84:11>>*/ return 0;
+    var content = _f_[1];
+    if(_f_[2]){
+     var next = _f_[2];
      q[1] = q[1] - 1 | 0;
      q[2] = next;
       /*<<queue.ml:91:4>>*/ return [0, content];
@@ -12499,56 +12607,67 @@
      /*<<queue.ml:86:4>>*/ clear(q);
      /*<<queue.ml:87:4>>*/ return [0, content];
     /*<<queue.ml:91:16>>*/ }
+   function drop(q){
+     /*<<queue.ml:97:2>>*/ var _e_ = q[2];
+    if(! _e_)
+      /*<<queue.ml:98:11>>*/ throw  /*<<queue.ml:98:11>>*/ caml_maybe_attach_backtrace
+            (Empty, 1);
+    if(! _e_[2])  /*<<queue.ml:100:4>>*/ return clear(q);
+    var next = _e_[2];
+    q[1] = q[1] - 1 | 0;
+    q[2] = next;
+    return 0;
+    /*<<queue.ml:103:19>>*/ }
    function copy(q){
-     /*<<queue.ml:108:11>>*/ var
+     /*<<queue.ml:117:11>>*/ var
      cell$0 = q[2],
-      /*<<queue.ml:108:16>>*/ q_res = [0, q[1], 0, 0],
+      /*<<queue.ml:117:16>>*/ q_res = [0, q[1], 0, 0],
      prev = 0,
      cell = cell$0;
-     /*<<queue.ml:98:4>>*/ for(;;){
-     if(! cell){q_res[3] = prev;  /*<<queue.ml:99:33>>*/ return q_res;}
-      /*<<queue.ml:101:21>>*/ var
+     /*<<queue.ml:107:4>>*/ for(;;){
+     if(! cell){q_res[3] = prev;  /*<<queue.ml:108:33>>*/ return q_res;}
+      /*<<queue.ml:110:21>>*/ var
       content = cell[1],
       next = cell[2],
-       /*<<queue.ml:101:21>>*/ prev$0 = [0, content, 0];
-      /*<<queue.ml:102:6>>*/ if(prev)
+       /*<<queue.ml:110:21>>*/ prev$0 = [0, content, 0];
+      /*<<queue.ml:111:6>>*/ if(prev)
       prev[2] = prev$0;
      else
       q_res[2] = prev$0;
      prev = prev$0;
      cell = next;
     }
-    /*<<queue.ml:108:74>>*/ }
+    /*<<queue.ml:117:74>>*/ }
    function is_empty(q){
-     /*<<queue.ml:111:2>>*/ return 0 === q[1] ? 1 : 0;
-    /*<<queue.ml:111:14>>*/ }
+     /*<<queue.ml:120:2>>*/ return 0 === q[1] ? 1 : 0;
+    /*<<queue.ml:120:14>>*/ }
    function length(q){
-     /*<<queue.ml:114:2>>*/ return q[1];
-    /*<<queue.ml:114:10>>*/ }
+     /*<<queue.ml:123:2>>*/ return q[1];
+    /*<<queue.ml:123:10>>*/ }
    function iter(f, q){
-     /*<<queue.ml:124:13>>*/ var cell$0 = q[2], cell = cell$0;
-     /*<<queue.ml:118:4>>*/ for(;;){
-     if(! cell)  /*<<queue.ml:119:13>>*/ return 0;
+     /*<<queue.ml:133:13>>*/ var cell$0 = q[2], cell = cell$0;
+     /*<<queue.ml:127:4>>*/ for(;;){
+     if(! cell)  /*<<queue.ml:128:13>>*/ return 0;
      var content = cell[1], next = cell[2];
-      /*<<queue.ml:121:6>>*/  /*<<queue.ml:121:6>>*/ caml_call1(f, content);
+      /*<<queue.ml:130:6>>*/  /*<<queue.ml:130:6>>*/ caml_call1(f, content);
      cell = next;
     }
-    /*<<queue.ml:124:27>>*/ }
+    /*<<queue.ml:133:27>>*/ }
    function fold(f, accu$1, q){
-     /*<<queue.ml:134:18>>*/ var cell$0 = q[2], accu = accu$1, cell = cell$0;
-     /*<<queue.ml:128:4>>*/ for(;;){
-     if(! cell)  /*<<queue.ml:129:13>>*/ return accu;
-      /*<<queue.ml:131:17>>*/ var
+     /*<<queue.ml:143:18>>*/ var cell$0 = q[2], accu = accu$1, cell = cell$0;
+     /*<<queue.ml:137:4>>*/ for(;;){
+     if(! cell)  /*<<queue.ml:138:13>>*/ return accu;
+      /*<<queue.ml:140:17>>*/ var
       content = cell[1],
       next = cell[2],
-       /*<<queue.ml:131:17>>*/ accu$0 =
-         /*<<queue.ml:131:17>>*/ caml_call2(f, accu, content);
+       /*<<queue.ml:140:17>>*/ accu$0 =
+         /*<<queue.ml:140:17>>*/ caml_call2(f, accu, content);
      accu = accu$0;
      cell = next;
     }
-    /*<<queue.ml:134:37>>*/ }
+    /*<<queue.ml:143:37>>*/ }
    function transfer(q1, q2){
-     /*<<queue.ml:137:2>>*/ var _d_ = 0 < q1[1] ? 1 : 0;
+     /*<<queue.ml:146:2>>*/ var _d_ = 0 < q1[1] ? 1 : 0;
     if(! _d_) return _d_;
     var match = q2[3];
     return match
@@ -12559,32 +12678,32 @@
               q2[3] = q1[3],
               clear(q1))
             : (q2[1] = q1[1], q2[2] = q1[2], q2[3] = q1[3], clear(q1));
-    /*<<queue.ml:148:14>>*/ }
+    /*<<queue.ml:157:14>>*/ }
    function to_seq(q){
-     /*<<queue.ml:153:2>>*/ function aux(c, param){
-      /*<<queue.ml:153:21>>*/ if(! c)  /*<<queue.ml:154:13>>*/ return 0;
+     /*<<queue.ml:162:2>>*/ function aux(c, param){
+      /*<<queue.ml:162:21>>*/ if(! c)  /*<<queue.ml:163:13>>*/ return 0;
      var x = c[1], next = c[2];
-      /*<<queue.ml:155:35>>*/ return [0,
+      /*<<queue.ml:164:35>>*/ return [0,
              x,
              function(_c_){ /*<<?>>*/ return aux(next, _c_);}];
-     /*<<queue.ml:155:57>>*/ }
+     /*<<queue.ml:164:57>>*/ }
     var _a_ = q[2];
-     /*<<queue.ml:153:2>>*/ return function(_b_){
+     /*<<queue.ml:162:2>>*/ return function(_b_){
       /*<<?>>*/ return aux(_a_, _b_);};
-    /*<<queue.ml:157:13>>*/ }
+    /*<<queue.ml:166:13>>*/ }
    function add_seq(q, i){
-     /*<<queue.ml:159:18>>*/ return  /*<<queue.ml:159:18>>*/ caml_call2
+     /*<<queue.ml:168:18>>*/ return  /*<<queue.ml:168:18>>*/ caml_call2
             (Stdlib_Seq[4],
              function(x){
-               /*<<queue.ml:159:37>>*/ return add(x, q);
-              /*<<queue.ml:159:45>>*/ },
+               /*<<queue.ml:168:37>>*/ return add(x, q);
+              /*<<queue.ml:168:45>>*/ },
              i);
-    /*<<queue.ml:159:48>>*/ }
+    /*<<queue.ml:168:48>>*/ }
    function of_seq(g){
-     /*<<queue.ml:162:2>>*/  /*<<queue.ml:162:10>>*/ var q = create(0);
-     /*<<queue.ml:163:2>>*/ add_seq(q, g);
-     /*<<queue.ml:163:2>>*/ return q;
-    /*<<queue.ml:164:3>>*/ }
+     /*<<queue.ml:171:2>>*/  /*<<queue.ml:171:10>>*/ var q = create(0);
+     /*<<queue.ml:172:2>>*/ add_seq(q, g);
+     /*<<queue.ml:172:2>>*/ return q;
+    /*<<queue.ml:173:3>>*/ }
    var
     Stdlib_Queue =
       [0,
@@ -12598,6 +12717,7 @@
        peek,
        peek_opt,
        peek,
+       drop,
        clear,
        copy,
        is_empty,
@@ -13436,9 +13556,9 @@
    "use strict";
    var
     runtime = globalThis.jsoo_runtime,
+    caml_array_make = runtime.caml_array_make,
     caml_check_bound = runtime.caml_check_bound,
     caml_domain_dls_get = runtime.caml_domain_dls_get,
-    caml_make_vect = runtime.caml_make_vect,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_ml_domain_id = runtime.caml_ml_domain_id,
     caml_wrap_exception = runtime.caml_wrap_exception;
@@ -13479,7 +13599,7 @@
     /*<<domain.ml:72:24>>*/  /*<<domain.ml:72:24>>*/ var none = [0, 0];
    function create_dls(param){
      /*<<domain.ml:89:4>>*/  /*<<domain.ml:89:13>>*/ var
-     st =  /*<<domain.ml:89:13>>*/ caml_make_vect(8, none);
+     st =  /*<<domain.ml:89:13>>*/ caml_array_make(8, none);
      /*<<domain.ml:90:4>>*/  /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set
      (st);
     /*<<domain.ml:90:20>>*/ }
@@ -13526,7 +13646,7 @@
       new_sz = s;
      }
       /*<<domain.ml:128:19>>*/  /*<<domain.ml:128:19>>*/ var
-      new_st =  /*<<domain.ml:128:19>>*/ caml_make_vect(new_sz, none);
+      new_st =  /*<<domain.ml:128:19>>*/ caml_array_make(new_sz, none);
       /*<<domain.ml:129:6>>*/  /*<<domain.ml:129:6>>*/ caml_call5
       (Stdlib_Array[9], st, 0, new_st, 0, sz);
       /*<<domain.ml:136:9>>*/ if
@@ -13579,65 +13699,65 @@
             ? 1
             : 0;
     /*<<domain.ml:205:44>>*/ }
-    /*<<domain.ml:210:27>>*/ var
-     /*<<domain.ml:210:27>>*/ first_domain_spawned =
-       /*<<domain.ml:210:27>>*/ caml_call1(Stdlib_Atomic[1], 0),
-     /*<<domain.ml:212:27>>*/ first_spawn_function =
-      [0, function(param){ /*<<domain.ml:212:44>>*/ }],
+    /*<<domain.ml:213:27>>*/ var
+     /*<<domain.ml:213:27>>*/ first_domain_spawned =
+       /*<<domain.ml:213:27>>*/ caml_call1(Stdlib_Atomic[1], 0),
+     /*<<domain.ml:215:27>>*/ first_spawn_function =
+      [0, function(param){ /*<<domain.ml:215:44>>*/ }],
     cst_first_domain_already_spawn = "first domain already spawned";
    function before_first_spawn(f){
-     /*<<domain.ml:215:2>>*/ if
-     ( /*<<domain.ml:215:5>>*/ caml_call1
+     /*<<domain.ml:218:2>>*/ if
+     ( /*<<domain.ml:218:5>>*/ caml_call1
        (Stdlib_Atomic[3], first_domain_spawned))
-      /*<<domain.ml:216:4>>*/ throw  /*<<domain.ml:216:4>>*/ caml_maybe_attach_backtrace
+      /*<<domain.ml:219:4>>*/ throw  /*<<domain.ml:219:4>>*/ caml_maybe_attach_backtrace
             ([0, Stdlib[6], cst_first_domain_already_spawn], 1);
     var old_f = first_spawn_function[1];
     function new_f(param){
-      /*<<domain.ml:219:19>>*/  /*<<domain.ml:219:19>>*/ caml_call1(old_f, 0);
-      /*<<domain.ml:219:19>>*/ return  /*<<domain.ml:219:19>>*/ caml_call1
+      /*<<domain.ml:222:19>>*/  /*<<domain.ml:222:19>>*/ caml_call1(old_f, 0);
+      /*<<domain.ml:222:19>>*/ return  /*<<domain.ml:222:19>>*/ caml_call1
              (f, 0);
-     /*<<domain.ml:219:33>>*/ }
+     /*<<domain.ml:222:33>>*/ }
     first_spawn_function[1] = new_f;
     return 0;
-    /*<<domain.ml:221:5>>*/ }
-    /*<<domain.ml:231:18>>*/  /*<<domain.ml:231:18>>*/ var
+    /*<<domain.ml:224:5>>*/ }
+    /*<<domain.ml:234:18>>*/  /*<<domain.ml:234:18>>*/ var
     at_exit_key =
       new_key
        (0,
         function(param){
-          /*<<domain.ml:231:41>>*/ return function(param){
-           /*<<domain.ml:231:52>>*/ return 0; /*<<domain.ml:231:54>>*/ };
-         /*<<domain.ml:231:55>>*/ });
+          /*<<domain.ml:234:41>>*/ return function(param){
+           /*<<domain.ml:234:52>>*/ return 0; /*<<domain.ml:234:54>>*/ };
+         /*<<domain.ml:234:55>>*/ });
    function at_exit(f){
-     /*<<domain.ml:234:2>>*/  /*<<domain.ml:234:32>>*/ var
+     /*<<domain.ml:237:2>>*/  /*<<domain.ml:237:32>>*/ var
      old_exit = get(at_exit_key);
     function new_exit(param){
-      /*<<domain.ml:236:4>>*/  /*<<domain.ml:236:4>>*/ caml_call1(f, 0);
-      /*<<domain.ml:236:4>>*/ return  /*<<domain.ml:236:4>>*/ caml_call1
+      /*<<domain.ml:239:4>>*/  /*<<domain.ml:239:4>>*/ caml_call1(f, 0);
+      /*<<domain.ml:239:4>>*/ return  /*<<domain.ml:239:4>>*/ caml_call1
              (old_exit, 0);
-     /*<<domain.ml:236:21>>*/ }
-     /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit);
-    /*<<domain.ml:238:30>>*/ }
+     /*<<domain.ml:239:21>>*/ }
+     /*<<domain.ml:241:2>>*/ return set(at_exit_key, new_exit);
+    /*<<domain.ml:241:30>>*/ }
    function do_at_exit(param){
-     /*<<domain.ml:241:2>>*/  /*<<domain.ml:241:25>>*/ var
+     /*<<domain.ml:244:2>>*/  /*<<domain.ml:244:25>>*/ var
      f = get(at_exit_key);
-     /*<<domain.ml:242:2>>*/ return  /*<<domain.ml:242:2>>*/ caml_call1(f, 0);
-    /*<<domain.ml:242:6>>*/ }
+     /*<<domain.ml:245:2>>*/ return  /*<<domain.ml:245:2>>*/ caml_call1(f, 0);
+    /*<<domain.ml:245:6>>*/ }
    Stdlib[104][1] = do_at_exit;
    function spawn(f){
-     /*<<domain.ml:249:2>>*/ if
+     /*<<domain.ml:252:2>>*/ if
      (1
       -
-        /*<<domain.ml:224:9>>*/ caml_call1
+        /*<<domain.ml:227:9>>*/ caml_call1
         (Stdlib_Atomic[3], first_domain_spawned)){
-      /*<<domain.ml:225:4>>*/  /*<<domain.ml:225:4>>*/ caml_call2
+      /*<<domain.ml:228:4>>*/  /*<<domain.ml:228:4>>*/ caml_call2
       (Stdlib_Atomic[4], first_domain_spawned, 1);
-      /*<<domain.ml:226:4>>*/  /*<<domain.ml:226:4>>*/ caml_call1
+      /*<<domain.ml:229:4>>*/  /*<<domain.ml:229:4>>*/ caml_call1
       (first_spawn_function[1], 0);
      first_spawn_function[1] =
       function(param){
-        /*<<domain.ml:228:39>>*/ return 0;
-       /*<<domain.ml:228:41>>*/ };
+        /*<<domain.ml:231:39>>*/ return 0;
+       /*<<domain.ml:231:41>>*/ };
     }
      /*<<domain.ml:193:6>>*/ var
       /*<<domain.ml:193:6>>*/ _b_ =
@@ -13652,13 +13772,13 @@
                    /*<<domain.ml:192:37>>*/ caml_call1(split, get(k))];
           /*<<domain.ml:192:54>>*/ },
          _b_),
-      /*<<domain.ml:256:17>>*/ _c_ =
-        /*<<domain.ml:256:17>>*/ caml_call1(Stdlib_Condition[1], 0),
-      /*<<domain.ml:254:8>>*/ term_sync =
-       [0, 0,  /*<<domain.ml:255:16>>*/ caml_call1(Stdlib_Mutex[1], 0), _c_];
+      /*<<domain.ml:259:17>>*/ _c_ =
+        /*<<domain.ml:259:17>>*/ caml_call1(Stdlib_Condition[1], 0),
+      /*<<domain.ml:257:8>>*/ term_sync =
+       [0, 0,  /*<<domain.ml:258:16>>*/ caml_call1(Stdlib_Mutex[1], 0), _c_];
     function body(param){
-      /*<<domain.ml:260:4>>*/ try{
-       /*<<domain.ml:261:6>>*/ create_dls(0);
+      /*<<domain.ml:263:4>>*/ try{
+       /*<<domain.ml:264:6>>*/ create_dls(0);
        /*<<domain.ml:196:4>>*/  /*<<domain.ml:196:4>>*/ caml_call2
        (Stdlib_List[18],
         function(param){
@@ -13666,41 +13786,41 @@
           /*<<domain.ml:196:34>>*/ return set(k, v);
          /*<<domain.ml:196:42>>*/ },
         pk);
-       /*<<domain.ml:263:16>>*/  /*<<domain.ml:263:16>>*/ var
-       res =  /*<<domain.ml:263:16>>*/ caml_call1(f, 0);
+       /*<<domain.ml:266:16>>*/  /*<<domain.ml:266:16>>*/ var
+       res =  /*<<domain.ml:266:16>>*/ caml_call1(f, 0);
      }
      catch(exn$0){
       var exn = caml_wrap_exception(exn$0);
-       /*<<domain.ml:278:8>>*/ try{ /*<<domain.ml:278:13>>*/ do_at_exit(0);}
+       /*<<domain.ml:281:8>>*/ try{ /*<<domain.ml:281:13>>*/ do_at_exit(0);}
       catch(_d_){}
-       /*<<domain.ml:279:8>>*/ throw  /*<<domain.ml:279:8>>*/ caml_maybe_attach_backtrace
+       /*<<domain.ml:282:8>>*/ throw  /*<<domain.ml:282:8>>*/ caml_maybe_attach_backtrace
              (exn, 0);
      }
-      /*<<domain.ml:272:8>>*/ do_at_exit(0);
-      /*<<domain.ml:272:8>>*/ return res;
-     /*<<domain.ml:279:17>>*/ }
-     /*<<domain.ml:281:15>>*/  /*<<domain.ml:281:15>>*/ var
+      /*<<domain.ml:275:8>>*/ do_at_exit(0);
+      /*<<domain.ml:275:8>>*/ return res;
+     /*<<domain.ml:282:17>>*/ }
+     /*<<domain.ml:284:15>>*/  /*<<domain.ml:284:15>>*/ var
      domain =
-        /*<<domain.ml:281:15>>*/ runtime.caml_domain_spawn(body, term_sync);
-     /*<<domain.ml:282:2>>*/ return [0, domain, term_sync];
-    /*<<domain.ml:282:24>>*/ }
+        /*<<domain.ml:284:15>>*/ runtime.caml_domain_spawn(body, term_sync);
+     /*<<domain.ml:285:2>>*/ return [0, domain, term_sync];
+    /*<<domain.ml:285:24>>*/ }
    function join(param){
     var term_sync = param[2];
-     /*<<domain.ml:285:2>>*/ function loop(param){
-      /*<<domain.ml:287:4>>*/ for(;;){
+     /*<<domain.ml:288:2>>*/ function loop(param){
+      /*<<domain.ml:290:4>>*/ for(;;){
       var match = term_sync[1];
-      if(match){var res = match[1];  /*<<domain.ml:292:8>>*/ return res;}
-       /*<<domain.ml:289:8>>*/  /*<<domain.ml:289:8>>*/ caml_call2
+      if(match){var res = match[1];  /*<<domain.ml:295:8>>*/ return res;}
+       /*<<domain.ml:292:8>>*/  /*<<domain.ml:292:8>>*/ caml_call2
        (Stdlib_Condition[2], term_sync[3], term_sync[2]);
      }
-     /*<<domain.ml:292:11>>*/ }
-     /*<<domain.ml:294:8>>*/  /*<<domain.ml:294:8>>*/ var
+     /*<<domain.ml:295:11>>*/ }
+     /*<<domain.ml:297:8>>*/  /*<<domain.ml:297:8>>*/ var
      match =
-        /*<<domain.ml:294:8>>*/ caml_call2
+        /*<<domain.ml:297:8>>*/ caml_call2
         (Stdlib_Mutex[5], term_sync[2], loop);
-    if(0 === match[0]){var x = match[1];  /*<<domain.ml:295:12>>*/ return x;}
+    if(0 === match[0]){var x = match[1];  /*<<domain.ml:298:12>>*/ return x;}
     var ex = match[1];
-     /*<<domain.ml:296:16>>*/ throw  /*<<domain.ml:296:16>>*/ caml_maybe_attach_backtrace
+     /*<<domain.ml:299:16>>*/ throw  /*<<domain.ml:299:16>>*/ caml_maybe_attach_backtrace
            (ex, 1);
    }
    var
@@ -13716,6 +13836,7 @@
        cpu_relax,
        is_main_domain,
        recommended_domain_count,
+       runtime.caml_ml_domain_index,
        [0, new_key, get, set]];
    runtime.caml_register_global(9, Stdlib_Domain, "Stdlib__Domain");
    return;
@@ -20479,22 +20600,29 @@
    /*<<?>>*/ }
   (globalThis));
 
-//# unitInfo: Provides: Stdlib__Dynarray
-//# unitInfo: Requires: Stdlib, Stdlib__Array, Stdlib__List, Stdlib__Printf, Stdlib__Seq, Stdlib__Sys
+//# unitInfo: Provides: Stdlib__Arg
+//# unitInfo: Requires: Stdlib, Stdlib__Array, Stdlib__Buffer, Stdlib__Int, Stdlib__List, Stdlib__Printf, Stdlib__String, Stdlib__Sys
 (function
   (globalThis){
    "use strict";
    var
     runtime = globalThis.jsoo_runtime,
-    cst_requested = " requested",
-    cst_index = ": index ",
-    cst_Dynarray = "Dynarray.",
-    cst_append$1 = "append",
-    cst_dynarray_ml = "dynarray.ml",
-    cst_ensure_capacity$0 = "ensure_capacity",
+    cst$8 = "",
+    cst$10 = "  ",
+    cst_Display_this_list_of_optio$1 = " Display this list of options",
+    cst_s = "%s",
+    cst_help$4 = "--help",
+    cst_help$3 = "-help",
+    cst$9 = ".\n",
+    cst_a_float$1 = "a float",
+    cst_an_integer$1 = "an integer",
     caml_check_bound = runtime.caml_check_bound,
-    caml_make_vect = runtime.caml_make_vect,
+    caml_equal = runtime.caml_equal,
+    caml_fresh_oo_id = runtime.caml_fresh_oo_id,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_string_length = runtime.caml_ml_string_length,
+    caml_string_get = runtime.caml_string_get,
+    caml_sys_argv = runtime.caml_sys_argv,
     caml_wrap_exception = runtime.caml_wrap_exception;
     /*<<?>>*/ function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) == 1
@@ -20521,1159 +20649,254 @@
             ? f(a0, a1, a2, a3, a4)
             : runtime.caml_call_gen(f, [a0, a1, a2, a3, a4]);
    }
-   var
+    /*<<?>>*/ function caml_call6(f, a0, a1, a2, a3, a4, a5){
+    return (f.l >= 0 ? f.l : f.l = f.length) == 6
+            ? f(a0, a1, a2, a3, a4, a5)
+            : runtime.caml_call_gen(f, [a0, a1, a2, a3, a4, a5]);
+   }
+    /*<<arg.ml:50:0>>*/ var
     global_data = runtime.caml_get_global_data(),
-    f$0 = cst_ensure_capacity$0,
-    f = "get_last",
-    invalid_state_description =
-      "Invalid dynarray (unsynchronized concurrent length change)",
-    Stdlib_List = global_data.Stdlib__List,
-    Stdlib_Array = global_data.Stdlib__Array,
-    Stdlib_Seq = global_data.Stdlib__Seq,
+    cst$7 = "\n",
+    cst$4 = cst$8,
+    cst$5 = " ",
+    cst$6 = cst$8,
+    cst$2 = "(?)",
+    cst$3 = "-",
+    cst = "}",
+    cst$0 = "|",
+    cst$1 = "{",
     Stdlib = global_data.Stdlib,
-    Stdlib_Sys = global_data.Stdlib__Sys,
-    Assert_failure = global_data.Assert_failure,
     Stdlib_Printf = global_data.Stdlib__Printf,
+    Stdlib_Array = global_data.Stdlib__Array,
+    Stdlib_Buffer = global_data.Stdlib__Buffer,
+    Stdlib_List = global_data.Stdlib__List,
+    Stdlib_String = global_data.Stdlib__String,
+    Stdlib_Int = global_data.Stdlib__Int,
+     /*<<arg.ml:50:0>>*/ Bad = [248, "Stdlib.Arg.Bad", caml_fresh_oo_id(0)],
+     /*<<arg.ml:51:0>>*/ Help = [248, "Stdlib.Arg.Help", caml_fresh_oo_id(0)],
+     /*<<arg.ml:59:0>>*/ Stop = [248, "Stdlib.Arg.Stop", caml_fresh_oo_id(0)],
+    cst_none = "<none>",
     _a_ =
-      [0,
-       [11,
-        cst_Dynarray,
-        [2,
-         0,
-         [11,
-          cst_index,
-          [4, 0, 0, 0, [11, " out of bounds (empty dynarray)", 0]]]]],
-       "Dynarray.%s: index %d out of bounds (empty dynarray)"],
+      [0, [11, cst$10, [2, 0, [12, 32, [2, 0, [12, 10, 0]]]]], "  %s %s\n"],
     _b_ =
       [0,
-       [11,
-        cst_Dynarray,
-        [2,
-         0,
-         [11,
-          cst_index,
-          [4, 0, 0, 0, [11, " out of bounds (0..", [4, 0, 0, 0, [12, 41, 0]]]]]]],
-       "Dynarray.%s: index %d out of bounds (0..%d)"],
-    _c_ =
-      [0,
-       [11,
-        cst_Dynarray,
-        [2,
-         0,
-         [11, ": negative length ", [4, 0, 0, 0, [11, cst_requested, 0]]]]],
-       "Dynarray.%s: negative length %d requested"],
-    _d_ =
-      [0,
-       [11,
-        cst_Dynarray,
-        [2,
-         0,
-         [11, ": negative capacity ", [4, 0, 0, 0, [11, cst_requested, 0]]]]],
-       "Dynarray.%s: negative capacity %d requested"],
-    _e_ =
-      [0,
-       [11,
-        cst_Dynarray,
-        [2,
-         0,
-         [11,
-          ": cannot grow to requested length ",
-          [4,
-           0,
-           0,
-           0,
-           [11, " (max_array_length is ", [4, 0, 0, 0, [12, 41, 0]]]]]]],
-       "Dynarray.%s: cannot grow to requested length %d (max_array_length is %d)"],
+       [11, cst$10, [2, 0, [12, 32, [2, 0, [2, 0, [12, 10, 0]]]]]],
+       "  %s %s%s\n"],
+    _c_ = [0, cst_help$3],
+    cst_Display_this_list_of_optio = cst_Display_this_list_of_optio$1,
+    cst_help = cst_help$3,
+    cst_Display_this_list_of_optio$0 = cst_Display_this_list_of_optio$1,
+    cst_help$0 = cst_help$4,
+    cst_help$1 = cst_help$4,
+    cst_help$2 = cst_help$3,
+    _d_ = [0, [2, 0, [12, 10, 0]], "%s\n"],
+    _e_ = [0, [2, 0, 0], cst_s];
+   function assoc3(x, l){
+     /*<<arg.ml:64:2>>*/ var l$0 = l;
+     /*<<arg.ml:64:2>>*/ for(;;){
+     if(! l$0)
+       /*<<arg.ml:65:10>>*/ throw  /*<<arg.ml:65:10>>*/ caml_maybe_attach_backtrace
+             (Stdlib[8], 1);
+     var match = l$0[1], y2 = match[2], y1 = match[1];
+      /*<<arg.ml:66:26>>*/ if( /*<<arg.ml:66:26>>*/ caml_equal(y1, x))
+       /*<<arg.ml:66:36>>*/ return y2;
+     var t = l$0[2];
+     l$0 = t;
+    }
+    /*<<arg.ml:67:24>>*/ }
+   function make_symlist(prefix, sep, suffix, l){
+     /*<<arg.ml:77:2>>*/ if(! l)  /*<<arg.ml:78:10>>*/ return cst_none;
+     /*<<arg.ml:79:53>>*/ var
+     t = l[2],
+     h = l[1],
+      /*<<arg.ml:79:53>>*/ _az_ =
+        /*<<arg.ml:79:53>>*/ caml_call2(Stdlib[28], prefix, h),
+      /*<<arg.ml:79:12>>*/ _aA_ =
+        /*<<arg.ml:79:12>>*/ caml_call3
+        (Stdlib_List[26],
+         function(x, y){
+           /*<<arg.ml:79:40>>*/  /*<<arg.ml:79:44>>*/ var
+           _aB_ =  /*<<arg.ml:79:44>>*/ caml_call2(Stdlib[28], sep, y);
+           /*<<arg.ml:79:44>>*/ return  /*<<arg.ml:79:44>>*/ caml_call2
+                  (Stdlib[28], x, _aB_);
+          /*<<arg.ml:79:51>>*/ },
+         _az_,
+         t);
+     /*<<arg.ml:79:12>>*/ return  /*<<arg.ml:79:12>>*/ caml_call2
+            (Stdlib[28], _aA_, suffix);
+    /*<<arg.ml:79:77>>*/ }
+   function help_action(param){
+     /*<<arg.ml:91:21>>*/ throw  /*<<arg.ml:91:21>>*/ caml_maybe_attach_backtrace
+           ([0, Stop, _c_], 1);
+    /*<<arg.ml:91:51>>*/ }
+   function add_help(speclist){
+     /*<<arg.ml:94:2>>*/ try{
+      /*<<arg.ml:95:15>>*/ assoc3(cst_help$2, speclist);
+      /*<<arg.ml:95:42>>*/ var  /*<<arg.ml:95:42>>*/ _aw_ = 0, add1 = _aw_;
+    }
+    catch(_ay_){
+     var _as_ = caml_wrap_exception(_ay_);
+     if(_as_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_as_, 0);
+     var
+      add1 =
+        [0,
+         [0, cst_help, [0, help_action], cst_Display_this_list_of_optio],
+         0];
+    }
+    try{
+      /*<<arg.ml:99:15>>*/ assoc3(cst_help$1, speclist);
+      /*<<arg.ml:99:43>>*/ var  /*<<arg.ml:99:43>>*/ _av_ = 0, add2 = _av_;
+    }
+    catch(_ax_){
+     var _at_ = caml_wrap_exception(_ax_);
+     if(_at_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_at_, 0);
+     var
+      add2 =
+        [0,
+         [0, cst_help$0, [0, help_action], cst_Display_this_list_of_optio$0],
+         0];
+    }
+     /*<<arg.ml:103:13>>*/  /*<<arg.ml:103:13>>*/ var
+     _au_ =  /*<<arg.ml:103:13>>*/ caml_call2(Stdlib[37], add1, add2);
+     /*<<arg.ml:103:13>>*/ return  /*<<arg.ml:103:13>>*/ caml_call2
+            (Stdlib[37], speclist, _au_);
+    /*<<arg.ml:103:26>>*/ }
+   function usage_b(buf, speclist, errmsg){
+     /*<<arg.ml:107:2>>*/  /*<<arg.ml:107:2>>*/ caml_call3
+     (Stdlib_Printf[5], buf, _d_, errmsg);
+     /*<<arg.ml:108:29>>*/  /*<<arg.ml:108:29>>*/ var
+     _ap_ = add_help(speclist);
+     /*<<arg.ml:108:29>>*/ return  /*<<arg.ml:108:29>>*/ caml_call2
+            (Stdlib_List[18],
+             function(param){
+              var
+               doc = param[3],
+               spec = param[2],
+               key = param[1],
+               _aq_ =
+                 0 <  /*<<arg.ml:83:2>>*/ caml_ml_string_length(doc) ? 1 : 0;
+              if(! _aq_) return _aq_;
+              if(11 !== spec[0])
+                /*<<arg.ml:88:8>>*/ return  /*<<arg.ml:88:8>>*/ caml_call4
+                       (Stdlib_Printf[5], buf, _a_, key, doc);
+               /*<<arg.ml:86:38>>*/ var
+               l = spec[1],
+                /*<<arg.ml:86:38>>*/ _ar_ = make_symlist(cst$1, cst$0, cst, l);
+               /*<<arg.ml:86:8>>*/ return  /*<<arg.ml:86:8>>*/ caml_call5
+                      (Stdlib_Printf[5], buf, _b_, key, _ar_, doc);
+             },
+             _ap_);
+    /*<<arg.ml:108:48>>*/ }
+   function usage_string(speclist, errmsg){
+     /*<<arg.ml:112:2>>*/  /*<<arg.ml:112:10>>*/ var
+     b =  /*<<arg.ml:112:10>>*/ caml_call1(Stdlib_Buffer[1], 200);
+     /*<<arg.ml:113:2>>*/ usage_b(b, speclist, errmsg);
+     /*<<arg.ml:113:2>>*/ return  /*<<arg.ml:113:2>>*/ caml_call1
+            (Stdlib_Buffer[2], b);
+    /*<<arg.ml:114:19>>*/ }
+   function usage(speclist, errmsg){
+     /*<<arg.ml:118:2>>*/  /*<<arg.ml:118:15>>*/ var
+     _ao_ = usage_string(speclist, errmsg);
+     /*<<arg.ml:118:15>>*/ return  /*<<arg.ml:118:15>>*/ caml_call2
+            (Stdlib_Printf[3], _e_, _ao_);
+    /*<<arg.ml:118:45>>*/ }
+    /*<<arg.ml:121:14>>*/ var
+     /*<<arg.ml:121:14>>*/ current = [0, 0],
     _f_ =
       [0,
-       [2,
-        0,
-        [11,
-         ": missing element at position ",
-         [4, 0, 0, 0, [11, " < length ", [4, 0, 0, 0, 0]]]]],
-       "%s: missing element at position %d < length %d"],
-    _g_ =
+       [2, 0, [11, ": unknown option '", [2, 0, [11, "'.\n", 0]]]],
+       "%s: unknown option '%s'.\n"],
+    _g_ = [0, cst_help$3],
+    _h_ = [0, cst_help$4],
+    _i_ =
       [0,
        [2,
         0,
-        [11, ": length ", [4, 0, 0, 0, [11, " > capacity ", [4, 0, 0, 0, 0]]]]],
-       "%s: length %d > capacity %d"],
-    _h_ =
-      [0,
-       [11,
-        cst_Dynarray,
-        [2,
-         0,
-         [11,
-          ": a length change from ",
-          [4,
-           0,
-           0,
-           0,
-           [11, " to ", [4, 0, 0, 0, [11, " occurred during iteration", 0]]]]]]],
-       "Dynarray.%s: a length change from %d to %d occurred during iteration"],
-    _i_ =
+        [11,
+         ": wrong argument '",
+         [2,
+          0,
+          [11,
+           "'; option '",
+           [2, 0, [11, "' expects ", [2, 0, [11, cst$9, 0]]]]]]]],
+       "%s: wrong argument '%s'; option '%s' expects %s.\n"],
+    _j_ =
       [0,
-       [11, cst_Dynarray, [2, 0, [11, ": empty array", 0]]],
-       "Dynarray.%s: empty array"],
-    cst_make = "make",
-    cst_init = "init",
-    cst_get = "get",
-    cst_set = "set",
-    cst_truncate = "truncate",
-    _j_ = [0, cst_dynarray_ml, 381, 4],
-    _k_ = [0, cst_dynarray_ml, 380, 4],
-    cst_ensure_capacity = cst_ensure_capacity$0,
-    cst_set_capacity = "set_capacity",
-    cst_append = cst_append$1,
-    cst_append$0 = cst_append$1,
-    cst_iter = "iter",
-    cst_iteri = "iteri",
-    cst_map = "map",
-    cst_mapi = "mapi",
-    cst_fold_left = "fold_left",
-    cst_fold_right = "fold_right",
-    cst_exists = "exists",
-    cst_for_all = "for_all",
-    cst_filter = "filter",
-    cst_filter_map = "filter_map",
-    cst_to_array = "to_array",
-    cst_to_list = "to_list",
-    cst_to_seq = "to_seq",
-    cst_to_seq_rev = "to_seq_rev";
-   function negative_length_requested(f, n){
-     /*<<dynarray.ml:128:4>>*/ return  /*<<dynarray.ml:128:4>>*/ caml_call4
-            (Stdlib_Printf[10], Stdlib[1], _c_, f, n);
-    /*<<dynarray.ml:130:9>>*/ }
-   function negative_capacity_requested(f, n){
-     /*<<dynarray.ml:133:4>>*/ return  /*<<dynarray.ml:133:4>>*/ caml_call4
-            (Stdlib_Printf[10], Stdlib[1], _d_, f, n);
-    /*<<dynarray.ml:135:9>>*/ }
-   function missing_element(i, length){
-     /*<<dynarray.ml:152:4>>*/ return  /*<<dynarray.ml:152:4>>*/ caml_call5
-            (Stdlib_Printf[10],
-             Stdlib[1],
-             _f_,
-             invalid_state_description,
-             i,
-             length);
-    /*<<dynarray.ml:155:14>>*/ }
-   function unexpected_empty_element(f, i, length){
-     /*<<dynarray.ml:172:4>>*/ return i < length
-            ? missing_element(i, length)
-            : 0
-              === length
-              ?  /*<<dynarray.ml:119:6>>*/ caml_call4
-                (Stdlib_Printf[10], Stdlib[1], _a_, f, i)
-              :  /*<<dynarray.ml:123:6>>*/ caml_call5
-                (Stdlib_Printf[10], Stdlib[1], _b_, f, i, length - 1 | 0);
-    /*<<dynarray.ml:175:38>>*/ }
-   function check_same_length(f, a, expected){
-     /*<<dynarray.ml:187:2>>*/ var
-     length_a = a[1],
-     _W_ = expected !== length_a ? 1 : 0;
-    return _W_
-            ?  /*<<dynarray.ml:164:4>>*/ caml_call5
-              (Stdlib_Printf[10], Stdlib[1], _h_, f, expected, length_a)
-            : _W_;
-    /*<<dynarray.ml:190:41>>*/ }
-   function check_valid_length(length, arr){
-     /*<<dynarray.ml:197:2>>*/ var
-     capacity = arr.length - 1,
-     _V_ = capacity < length ? 1 : 0;
-    return _V_
-            ?  /*<<dynarray.ml:158:4>>*/ caml_call5
-              (Stdlib_Printf[10],
-               Stdlib[1],
-               _g_,
-               invalid_state_description,
-               length,
-               capacity)
-            : _V_;
-    /*<<dynarray.ml:199:42>>*/ }
-   function unsafe_get(arr, i, length){
-     /*<<dynarray.ml:206:2>>*/ var match = arr[1 + i];
-    if(! match)  /*<<dynarray.ml:207:13>>*/ return missing_element(i, length);
-    var v = match[1];
-     /*<<dynarray.ml:208:16>>*/ return v;
-    /*<<dynarray.ml:208:17>>*/ }
-   function create(param){
-     /*<<dynarray.ml:213:16>>*/ return [0, 0, [0]];
-    /*<<dynarray.ml:216:1>>*/ }
-   function make(n, x){
-     /*<<dynarray.ml:219:2>>*/ if(n < 0)
-      /*<<dynarray.ml:219:16>>*/ negative_length_requested(cst_make, n);
-     /*<<dynarray.ml:220:2>>*/ return [0,
-            n,
-             /*<<dynarray.ml:222:10>>*/ caml_call2
-             (Stdlib_Array[1],
-              n,
-              function(param){
-                /*<<dynarray.ml:222:33>>*/ return [0, x];
-               /*<<dynarray.ml:222:45>>*/ })];
-    /*<<dynarray.ml:223:3>>*/ }
-   function init(n, f){
-     /*<<dynarray.ml:226:2>>*/ if(n < 0)
-      /*<<dynarray.ml:226:16>>*/ negative_length_requested(cst_init, n);
-     /*<<dynarray.ml:227:2>>*/ return [0,
-            n,
-             /*<<dynarray.ml:229:10>>*/ caml_call2
-             (Stdlib_Array[1],
-              n,
-              function(i){
-                /*<<dynarray.ml:229:33>>*/ return [0,
-                        /*<<dynarray.ml:229:43>>*/ caml_call1(f, i)];
-               /*<<dynarray.ml:229:47>>*/ })];
-    /*<<dynarray.ml:230:3>>*/ }
-   function get(a, i){
-     /*<<dynarray.ml:238:2>>*/  /*<<dynarray.ml:238:8>>*/ var
-     match = caml_check_bound(a[2], i)[1 + i];
-    return match ? match[1] : unexpected_empty_element(cst_get, i, a[1]);
-    /*<<dynarray.ml:241:62>>*/ }
-   function set(a, i, x){
-     /*<<dynarray.ml:246:2>>*/  /*<<dynarray.ml:246:8>>*/ var
-     match = caml_check_bound(a[2], i)[1 + i];
-    return match
-            ? (match[1] = x, 0)
-            : unexpected_empty_element(cst_set, i, a[1]);
-    /*<<dynarray.ml:249:62>>*/ }
-   function length(a){
-     /*<<dynarray.ml:251:15>>*/ return a[1];
-    /*<<dynarray.ml:251:23>>*/ }
-   function is_empty(a){
-     /*<<dynarray.ml:253:17>>*/ return 0 === a[1] ? 1 : 0;
-    /*<<dynarray.ml:253:31>>*/ }
-   function copy(param){
-    var length = param[1], arr = param[2];
-     /*<<dynarray.ml:256:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:259:2>>*/ return [0,
-            length,
-             /*<<dynarray.ml:261:10>>*/ caml_call2
-             (Stdlib_Array[1],
-              length,
-              function(i){
-                /*<<dynarray.ml:262:6>>*/  /*<<dynarray.ml:262:14>>*/ var
-                v = unsafe_get(arr, i, length);
-                /*<<dynarray.ml:263:11>>*/ return [0, v];
-               /*<<dynarray.ml:263:14>>*/ })];
-   }
-   function get_last(a){
-     /*<<dynarray.ml:268:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:269:2>>*/ check_valid_length(length, arr);
-    if(0 === length)
-      /*<<dynarray.ml:178:4>>*/  /*<<dynarray.ml:178:4>>*/ caml_call3
-      (Stdlib_Printf[10], Stdlib[1], _i_, f);
-     /*<<dynarray.ml:271:21>>*/ return unsafe_get(arr, length - 1 | 0, length);
-    /*<<dynarray.ml:273:40>>*/ }
-   function find_last(a){
-     /*<<dynarray.ml:276:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:277:2>>*/ check_valid_length(length, arr);
-    return 0 === length ? 0 : [0, unsafe_get(arr, length - 1 | 0, length)];
-    /*<<dynarray.ml:282:49>>*/ }
-   function pop_last(a){
-     /*<<dynarray.ml:287:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:288:2>>*/ check_valid_length(length, arr);
-    if(0 === length)
-      /*<<dynarray.ml:290:21>>*/ throw  /*<<dynarray.ml:290:21>>*/ caml_maybe_attach_backtrace
-            (Stdlib[8], 1);
-     /*<<dynarray.ml:291:2>>*/ var
-      /*<<dynarray.ml:291:2>>*/ last = length - 1 | 0,
-     match = arr[1 + last];
-    return match
-            ? (arr[1 + last] = 0, a[1] = last, match[1])
-            : missing_element(last, length);
-    /*<<dynarray.ml:299:9>>*/ }
-   function pop_last_opt(a){
-     /*<<dynarray.ml:302:2>>*/ try{
-      /*<<dynarray.ml:302:8>>*/  /*<<dynarray.ml:302:8>>*/ var
-      x = pop_last(a);
-    }
-    catch(_U_){
-     var _T_ = caml_wrap_exception(_U_);
-     if(_T_ === Stdlib[8])  /*<<dynarray.ml:303:27>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_T_, 0);
+       [2, 0, [11, ": option '", [2, 0, [11, "' needs an argument.\n", 0]]]],
+       "%s: option '%s' needs an argument.\n"],
+    _k_ = [0, [2, 0, [11, ": ", [2, 0, [11, cst$9, 0]]]], "%s: %s.\n"],
+    cst_no_argument = "no argument",
+    cst_a_boolean = "a boolean",
+    cst_an_integer = cst_an_integer$1,
+    cst_an_integer$0 = cst_an_integer$1,
+    cst_a_float = cst_a_float$1,
+    cst_a_float$0 = cst_a_float$1,
+    cst_one_of = "one of: ",
+    cst_Arg_Expand_is_is_only_allo =
+      "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic",
+    _l_ = [0, [2, 0, 0], cst_s],
+    _m_ = [0, [2, 0, 0], cst_s],
+    _n_ = [0, [2, 0, 0], cst_s],
+    _o_ = [0, [2, 0, 0], cst_s],
+    _p_ = [0, [2, 0, 0], cst_s],
+    _q_ = [0, [2, 0, 0], cst_s],
+    dummy = 0;
+   function int_of_string_opt(x){
+     /*<<arg.ml:128:2>>*/ try{
+      /*<<arg.ml:128:6>>*/  /*<<arg.ml:128:6>>*/ var
+      _am_ = [0,  /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string(x)];
+      /*<<arg.ml:128:6>>*/ return _am_;
     }
-     /*<<dynarray.ml:304:9>>*/ return [0, x];
-    /*<<dynarray.ml:304:15>>*/ }
-   function remove_last(a){
-     /*<<dynarray.ml:307:2>>*/ var
-      /*<<dynarray.ml:307:13>>*/ last = a[1] - 1 | 0,
-     _R_ = 0 <= last ? 1 : 0,
-     _S_ =
-       _R_
-        ? (a[1] = last, caml_check_bound(a[2], last)[1 + last] = 0, 0)
-        : _R_;
-     /*<<dynarray.ml:310:4>>*/ return _S_;
-    /*<<dynarray.ml:311:5>>*/ }
-   function truncate(a, n){
-     /*<<dynarray.ml:314:2>>*/ if(n < 0)
-      /*<<dynarray.ml:314:16>>*/ negative_length_requested(cst_truncate, n);
-    var length = a[1], arr = a[2];
-    return length <= n
-            ? 0
-            : (a
-               [1]
-              = n,
-               /*<<dynarray.ml:319:4>>*/ caml_call4
-               (Stdlib_Array[8], arr, n, length - n | 0, 0));
-    /*<<dynarray.ml:320:5>>*/ }
-   function clear(a){
-     /*<<dynarray.ml:322:14>>*/ return truncate(a, 0);
-    /*<<dynarray.ml:322:26>>*/ }
-   function capacity(a){
-     /*<<dynarray.ml:327:17>>*/ return a[2].length - 1;
-    /*<<dynarray.ml:327:35>>*/ }
-   function ensure_capacity(a, capacity_request){
-     /*<<dynarray.ml:348:2>>*/ var
-     arr = a[2],
-      /*<<dynarray.ml:349:2>>*/ cur_capacity = arr.length - 1;
-     /*<<dynarray.ml:350:2>>*/ if(0 > capacity_request)
-      /*<<dynarray.ml:351:4>>*/ return negative_capacity_requested
-             (cst_ensure_capacity, capacity_request);
-    if(capacity_request <= cur_capacity)  /*<<dynarray.ml:356:4>>*/ return 0;
-    if(Stdlib_Sys[13] < capacity_request)
-      /*<<dynarray.ml:138:4>>*/  /*<<dynarray.ml:138:4>>*/ caml_call5
-      (Stdlib_Printf[10],
-       Stdlib[1],
-       _e_,
-       f$0,
-       capacity_request,
-       Stdlib_Sys[13]);
-     /*<<dynarray.ml:345:6>>*/ var
-     n =
-       512 < cur_capacity
-        ? cur_capacity + (cur_capacity / 2 | 0) | 0
-        : cur_capacity * 2 | 0,
-     _O_ = Stdlib_Sys[13],
-      /*<<dynarray.ml:345:6>>*/ _P_ =
-        /*<<dynarray.ml:345:6>>*/ caml_call2(Stdlib[17], 8, n),
-      /*<<dynarray.ml:345:2>>*/ _Q_ =
-        /*<<dynarray.ml:345:2>>*/ caml_call2(Stdlib[16], _P_, _O_),
-      /*<<dynarray.ml:375:6>>*/ new_capacity =
-        /*<<dynarray.ml:375:6>>*/ caml_call2
-        (Stdlib[17], _Q_, capacity_request),
-      /*<<dynarray.ml:376:18>>*/ new_arr =
-        /*<<dynarray.ml:376:18>>*/ caml_make_vect(new_capacity, 0);
-     /*<<dynarray.ml:377:4>>*/  /*<<dynarray.ml:377:4>>*/ caml_call5
-     (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
-    a[2] = new_arr;
-    if(0 > capacity_request)
-      /*<<dynarray.ml:380:4>>*/ throw  /*<<dynarray.ml:380:4>>*/ caml_maybe_attach_backtrace
-            ([0, Assert_failure, _k_], 1);
-    if(capacity_request <= new_arr.length - 1) return 0;
-     /*<<dynarray.ml:381:4>>*/ throw  /*<<dynarray.ml:381:4>>*/ caml_maybe_attach_backtrace
-           ([0, Assert_failure, _j_], 1);
-    /*<<dynarray.ml:382:5>>*/ }
-   function ensure_extra_capacity(a, extra_capacity_request){
-     /*<<dynarray.ml:385:2>>*/ return ensure_capacity
-            (a, a[1] + extra_capacity_request | 0);
-    /*<<dynarray.ml:385:55>>*/ }
-   function fit_capacity(a){
-     /*<<dynarray.ml:388:2>>*/ var _N_ = a[1];
-    return capacity(a) === _N_
-            ? 0
-            : (a
-               [2]
-              =
-                /*<<dynarray.ml:390:16>>*/ caml_call3
-                (Stdlib_Array[6], a[2], 0, a[1]),
-              0);
-    /*<<dynarray.ml:390:42>>*/ }
-   function set_capacity(a, n){
-     /*<<dynarray.ml:393:2>>*/ if(n < 0)
-      /*<<dynarray.ml:394:4>>*/ negative_capacity_requested
-      (cst_set_capacity, n);
-     /*<<dynarray.ml:396:2>>*/ var
-     arr = a[2],
-      /*<<dynarray.ml:396:2>>*/ cur_capacity = arr.length - 1;
-    if(n < cur_capacity){
-     a[1] =  /*<<dynarray.ml:398:16>>*/ caml_call2(Stdlib[16], a[1], n);
-     a[2] =  /*<<dynarray.ml:399:13>>*/ caml_call3(Stdlib_Array[6], arr, 0, n);
-     return 0;
-    }
-    var _L_ = cur_capacity < n ? 1 : 0;
-    if(_L_){
-      /*<<dynarray.ml:402:18>>*/  /*<<dynarray.ml:402:18>>*/ var
-      new_arr =  /*<<dynarray.ml:402:18>>*/ caml_make_vect(n, 0);
-      /*<<dynarray.ml:403:4>>*/  /*<<dynarray.ml:403:4>>*/ caml_call5
-      (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
-     a[2] = new_arr;
-     var _M_ = 0;
-    }
-    else
-     var _M_ = _L_;
-    return _M_;
-    /*<<dynarray.ml:405:5>>*/ }
-   function reset(a){
-     /*<<dynarray.ml:408:2>>*/ a[1] = 0;
-    a[2] = [0];
-    return 0;
-    /*<<dynarray.ml:409:15>>*/ }
-   function add_last_if_room(a, elem){
-     /*<<dynarray.ml:427:2>>*/ var length = a[1], arr = a[2];
-    return arr.length - 1 <= length
-            ? 0
-            : (a[1] = length + 1 | 0, arr[1 + length] = elem, 1);
-    /*<<dynarray.ml:435:5>>*/ }
-   function add_last(a, x){
-     /*<<dynarray.ml:438:2>>*/  /*<<dynarray.ml:438:18>>*/ var elem = [0, x];
-     /*<<dynarray.ml:439:5>>*/ if(add_last_if_room(a, elem))
-      /*<<dynarray.ml:439:34>>*/ return 0;
-     /*<<dynarray.ml:443:6>>*/ for(;;){
-      /*<<dynarray.ml:443:6>>*/ ensure_extra_capacity(a, 1);
-      /*<<dynarray.ml:444:13>>*/  /*<<dynarray.ml:444:13>>*/ var
-      _K_ = 1 - add_last_if_room(a, elem);
-     if(! _K_)  /*<<dynarray.ml:444:13>>*/ return _K_;
-    }
-    /*<<dynarray.ml:447:5>>*/ }
-   function append_list(a, li){
-     /*<<dynarray.ml:450:2>>*/ var li$0 = li;
-     /*<<dynarray.ml:450:2>>*/ for(;;){
-     if(! li$0)  /*<<dynarray.ml:451:10>>*/ return 0;
-     var xs = li$0[2], x = li$0[1];
-      /*<<dynarray.ml:452:15>>*/ add_last(a, x);
-     li$0 = xs;
-    }
-    /*<<dynarray.ml:452:45>>*/ }
-   function append_iter(a, iter, b){
-     /*<<dynarray.ml:455:2>>*/ return  /*<<dynarray.ml:455:2>>*/ caml_call2
-            (iter,
-             function(x){
-               /*<<dynarray.ml:455:17>>*/ return add_last(a, x);
-              /*<<dynarray.ml:455:29>>*/ },
-             b);
-    /*<<dynarray.ml:455:32>>*/ }
-   function append_seq(a, seq){
-     /*<<dynarray.ml:458:2>>*/ return  /*<<dynarray.ml:458:2>>*/ caml_call2
-            (Stdlib_Seq[4],
-             function(x){
-               /*<<dynarray.ml:458:21>>*/ return add_last(a, x);
-              /*<<dynarray.ml:458:33>>*/ },
-             seq);
-    /*<<dynarray.ml:458:38>>*/ }
-   function append_array_if_room(a, b){
-     /*<<dynarray.ml:463:2>>*/ var
-     length_a = a[1],
-     arr = a[2],
-      /*<<dynarray.ml:464:2>>*/ length_b = b.length - 1;
-    if(arr.length - 1 < (length_a + length_b | 0))
-      /*<<dynarray.ml:465:49>>*/ return 0;
-    a[1] = length_a + length_b | 0;
-     /*<<dynarray.ml:464:2>>*/ var
-      /*<<dynarray.ml:464:2>>*/ _I_ = length_b - 1 | 0,
-      /*<<dynarray.ml:495:4>>*/ _H_ = 0;
-    if(_I_ >= 0){
-     var i = _H_;
-     for(;;){
-       /*<<dynarray.ml:496:14>>*/  /*<<dynarray.ml:496:14>>*/ var
-       x = b[1 + i];
-      arr[1 + (length_a + i | 0)] = [0, x];
-       /*<<dynarray.ml:495:4>>*/  /*<<dynarray.ml:495:4>>*/ var
-       _J_ = i + 1 | 0;
-      if(_I_ === i) break;
-      i = _J_;
-     }
-    }
-     /*<<dynarray.ml:499:4>>*/ return 1;
-    /*<<dynarray.ml:500:5>>*/ }
-   function append_array(a, b){
-     /*<<dynarray.ml:503:2>>*/ if(append_array_if_room(a, b))
-      /*<<dynarray.ml:503:35>>*/ return 0;
-     /*<<dynarray.ml:507:6>>*/ for(;;){
-      /*<<dynarray.ml:507:6>>*/ ensure_extra_capacity(a, b.length - 1);
-      /*<<dynarray.ml:508:13>>*/  /*<<dynarray.ml:508:13>>*/ var
-      _G_ = 1 - append_array_if_room(a, b);
-     if(! _G_)  /*<<dynarray.ml:508:13>>*/ return _G_;
-    }
-    /*<<dynarray.ml:510:31>>*/ }
-   function append_if_room(a, b, length_b){
-     /*<<dynarray.ml:521:2>>*/ var length_a = a[1], arr_a = a[2];
-    if(arr_a.length - 1 < (length_a + length_b | 0))
-      /*<<dynarray.ml:522:51>>*/ return 0;
-    a[1] = length_a + length_b | 0;
-    var arr_b = b[2];
-     /*<<dynarray.ml:526:4>>*/ check_valid_length(length_b, arr_b);
-     /*<<dynarray.ml:526:4>>*/ var
-     _E_ = length_b - 1 | 0,
-      /*<<dynarray.ml:526:4>>*/ _D_ = 0;
-    if(_E_ >= 0){
-     var i = _D_;
-     for(;;){
-       /*<<dynarray.ml:528:14>>*/  /*<<dynarray.ml:528:14>>*/ var
-       x = unsafe_get(arr_b, i, length_b);
-      arr_a[1 + (length_a + i | 0)] = [0, x];
-       /*<<dynarray.ml:526:4>>*/  /*<<dynarray.ml:526:4>>*/ var
-       _F_ = i + 1 | 0;
-      if(_E_ === i) break;
-      i = _F_;
-     }
-    }
-     /*<<dynarray.ml:531:4>>*/ check_same_length(cst_append, b, length_b);
-     /*<<dynarray.ml:531:4>>*/ return 1;
-    /*<<dynarray.ml:533:5>>*/ }
-   function append(a, b){
-     /*<<dynarray.ml:536:2>>*/ var length_b = b[1];
-     /*<<dynarray.ml:537:5>>*/ if(append_if_room(a, b, length_b))
-      /*<<dynarray.ml:537:39>>*/ return 0;
-     /*<<dynarray.ml:541:6>>*/ for(;;){
-      /*<<dynarray.ml:541:6>>*/ ensure_extra_capacity(a, length_b);
-      /*<<dynarray.ml:548:6>>*/ check_same_length(cst_append$0, b, length_b);
-      /*<<dynarray.ml:549:13>>*/  /*<<dynarray.ml:549:13>>*/ var
-      _C_ = 1 - append_if_room(a, b, length_b);
-     if(! _C_)  /*<<dynarray.ml:549:13>>*/ return _C_;
-    }
-    /*<<dynarray.ml:552:5>>*/ }
-   function iter(f, k, a){
-     /*<<dynarray.ml:572:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:596:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:596:2>>*/ var
-     _A_ = length - 1 | 0,
-      /*<<dynarray.ml:596:2>>*/ _z_ = 0;
-    if(_A_ >= 0){
-     var i = _z_;
-     for(;;){
-       /*<<dynarray.ml:598:4>>*/  /*<<dynarray.ml:598:4>>*/ caml_call1
-       (k, unsafe_get(arr, i, length));
-       /*<<dynarray.ml:598:4>>*/  /*<<dynarray.ml:598:4>>*/ var
-       _B_ = i + 1 | 0;
-      if(_A_ === i) break;
-      i = _B_;
-     }
-    }
-     /*<<dynarray.ml:600:2>>*/ return check_same_length(f, a, length);
-    /*<<dynarray.ml:600:31>>*/ }
-   function iter$0(k, a){
-     /*<<dynarray.ml:603:2>>*/ return iter(cst_iter, k, a);
-    /*<<dynarray.ml:603:18>>*/ }
-   function iteri(k, a){
-     /*<<dynarray.ml:606:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:607:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:607:2>>*/ var
-     _x_ = length - 1 | 0,
-      /*<<dynarray.ml:607:2>>*/ _w_ = 0;
-    if(_x_ >= 0){
-     var i = _w_;
-     for(;;){
-       /*<<dynarray.ml:609:4>>*/  /*<<dynarray.ml:609:4>>*/ caml_call2
-       (k, i, unsafe_get(arr, i, length));
-       /*<<dynarray.ml:609:4>>*/  /*<<dynarray.ml:609:4>>*/ var
-       _y_ = i + 1 | 0;
-      if(_x_ === i) break;
-      i = _y_;
-     }
-    }
-     /*<<dynarray.ml:611:2>>*/ return check_same_length(cst_iteri, a, length);
-    /*<<dynarray.ml:611:37>>*/ }
-   function map(f, a){
-     /*<<dynarray.ml:614:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:615:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:616:12>>*/  /*<<dynarray.ml:616:12>>*/ var
-     res =
-       [0,
-        length,
-         /*<<dynarray.ml:618:10>>*/ caml_call2
-         (Stdlib_Array[1],
-          length,
-          function(i){
-            /*<<dynarray.ml:619:6>>*/ return [0,
-                    /*<<dynarray.ml:619:16>>*/ caml_call1
-                    (f, unsafe_get(arr, i, length))];
-           /*<<dynarray.ml:619:46>>*/ })];
-     /*<<dynarray.ml:621:2>>*/ check_same_length(cst_map, a, length);
-     /*<<dynarray.ml:621:2>>*/ return res;
-    /*<<dynarray.ml:622:5>>*/ }
-   function mapi(f, a){
-     /*<<dynarray.ml:626:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:627:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:628:12>>*/  /*<<dynarray.ml:628:12>>*/ var
-     res =
-       [0,
-        length,
-         /*<<dynarray.ml:630:10>>*/ caml_call2
-         (Stdlib_Array[1],
-          length,
-          function(i){
-            /*<<dynarray.ml:631:6>>*/ return [0,
-                    /*<<dynarray.ml:631:16>>*/ caml_call2
-                    (f, i, unsafe_get(arr, i, length))];
-           /*<<dynarray.ml:631:48>>*/ })];
-     /*<<dynarray.ml:633:2>>*/ check_same_length(cst_mapi, a, length);
-     /*<<dynarray.ml:633:2>>*/ return res;
-    /*<<dynarray.ml:634:5>>*/ }
-   function fold_left(f, acc, a){
-     /*<<dynarray.ml:637:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:638:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:639:10>>*/ var
-      /*<<dynarray.ml:639:10>>*/ r = [0, acc],
-      /*<<dynarray.ml:640:2>>*/ _u_ = length - 1 | 0,
-      /*<<dynarray.ml:639:10>>*/ _t_ = 0;
-    if(_u_ >= 0){
-     var i = _t_;
-     for(;;){
-       /*<<dynarray.ml:641:12>>*/  /*<<dynarray.ml:641:12>>*/ var
-       v = unsafe_get(arr, i, length);
-      r[1] =  /*<<dynarray.ml:642:9>>*/ caml_call2(f, r[1], v);
-       /*<<dynarray.ml:640:2>>*/  /*<<dynarray.ml:640:2>>*/ var
-       _v_ = i + 1 | 0;
-      if(_u_ === i) break;
-      i = _v_;
-     }
-    }
-     /*<<dynarray.ml:644:2>>*/ check_same_length(cst_fold_left, a, length);
-    return r[1];
-    /*<<dynarray.ml:645:4>>*/ }
-   function fold_right(f, a, acc){
-     /*<<dynarray.ml:648:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:649:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:650:10>>*/ var
-      /*<<dynarray.ml:650:10>>*/ r = [0, acc],
-      /*<<dynarray.ml:650:10>>*/ _r_ = length - 1 | 0;
-    if(_r_ >= 0){
-     var i = _r_;
-     for(;;){
-       /*<<dynarray.ml:652:12>>*/  /*<<dynarray.ml:652:12>>*/ var
-       v = unsafe_get(arr, i, length);
-      r[1] =  /*<<dynarray.ml:653:9>>*/ caml_call2(f, v, r[1]);
-       /*<<dynarray.ml:650:10>>*/  /*<<dynarray.ml:650:10>>*/ var
-       _s_ = i - 1 | 0;
-      if(0 === i) break;
-      i = _s_;
-     }
+    catch(_an_){
+     var _al_ = caml_wrap_exception(_an_);
+     if(_al_[1] === Stdlib[7])  /*<<arg.ml:129:20>>*/ return 0;
+     throw caml_maybe_attach_backtrace(_al_, 0);
     }
-     /*<<dynarray.ml:655:2>>*/ check_same_length(cst_fold_right, a, length);
-    return r[1];
-    /*<<dynarray.ml:656:4>>*/ }
-   function exists(p, a){
-     /*<<dynarray.ml:659:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:660:2>>*/ check_valid_length(length, arr);
-    var i = 0;
-     /*<<dynarray.ml:662:4>>*/ for(;;){
-     if(i === length)
-      var res = 0;
-     else{
-       /*<<dynarray.ml:664:6>>*/  /*<<dynarray.ml:664:6>>*/ var
-       _q_ =
-          /*<<dynarray.ml:664:6>>*/ caml_call1(p, unsafe_get(arr, i, length));
-       /*<<dynarray.ml:664:6>>*/ if(! _q_){
-       var i$0 = i + 1 | 0;
-       i = i$0;
-       continue;
-      }
-      var res = _q_;
-     }
-      /*<<dynarray.ml:668:2>>*/ check_same_length(cst_exists, a, length);
-      /*<<dynarray.ml:668:2>>*/ return res;
+    /*<<arg.ml:129:24>>*/ }
+   function float_of_string_opt(x){
+     /*<<arg.ml:132:2>>*/ try{
+      /*<<arg.ml:132:6>>*/  /*<<arg.ml:132:6>>*/ var
+      _aj_ = [0,  /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string(x)];
+      /*<<arg.ml:132:6>>*/ return _aj_;
     }
-    /*<<dynarray.ml:669:5>>*/ }
-   function for_all(p, a){
-     /*<<dynarray.ml:672:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:673:2>>*/ check_valid_length(length, arr);
-    var i = 0;
-     /*<<dynarray.ml:675:4>>*/ for(;;){
-     if(i === length)
-      var res = 1;
-     else{
-       /*<<dynarray.ml:677:6>>*/  /*<<dynarray.ml:677:6>>*/ var
-       _p_ =
-          /*<<dynarray.ml:677:6>>*/ caml_call1(p, unsafe_get(arr, i, length));
-       /*<<dynarray.ml:677:6>>*/ if(_p_){
-       var i$0 = i + 1 | 0;
-       i = i$0;
-       continue;
-      }
-      var res = _p_;
-     }
-      /*<<dynarray.ml:681:2>>*/ check_same_length(cst_for_all, a, length);
-      /*<<dynarray.ml:681:2>>*/ return res;
+    catch(_ak_){
+     var _ai_ = caml_wrap_exception(_ak_);
+     if(_ai_[1] === Stdlib[7])  /*<<arg.ml:133:20>>*/ return 0;
+     throw caml_maybe_attach_backtrace(_ai_, 0);
     }
-    /*<<dynarray.ml:682:5>>*/ }
-   function filter(f, a){
-     /*<<dynarray.ml:685:2>>*/  /*<<dynarray.ml:685:10>>*/ var b = create(0);
-     /*<<dynarray.ml:686:2>>*/ iter
-     (cst_filter,
-      function(x){
-        /*<<dynarray.ml:686:27>>*/  /*<<dynarray.ml:686:30>>*/ var
-        _o_ =  /*<<dynarray.ml:686:30>>*/ caml_call1(f, x);
-        /*<<dynarray.ml:686:30>>*/ return _o_ ? add_last(b, x) : _o_;
-       /*<<dynarray.ml:686:51>>*/ },
-      a);
-     /*<<dynarray.ml:686:2>>*/ return b;
-    /*<<dynarray.ml:687:3>>*/ }
-   function filter_map(f, a){
-     /*<<dynarray.ml:690:2>>*/  /*<<dynarray.ml:690:10>>*/ var b = create(0);
-     /*<<dynarray.ml:691:2>>*/ iter
-     (cst_filter_map,
-      function(x){
-        /*<<dynarray.ml:692:4>>*/  /*<<dynarray.ml:692:10>>*/ var
-        match =  /*<<dynarray.ml:692:10>>*/ caml_call1(f, x);
-       if(! match)  /*<<dynarray.ml:693:14>>*/ return 0;
-       var y = match[1];
-        /*<<dynarray.ml:694:16>>*/ return add_last(b, y);
-       /*<<dynarray.ml:694:28>>*/ },
-      a);
-     /*<<dynarray.ml:691:2>>*/ return b;
-    /*<<dynarray.ml:696:3>>*/ }
-   function of_array(a){
-     /*<<dynarray.ml:707:2>>*/ var length = a.length - 1;
-     /*<<dynarray.ml:708:2>>*/ return [0,
-            length,
-             /*<<dynarray.ml:710:10>>*/ caml_call2
-             (Stdlib_Array[1],
-              length,
-              function(i){
-                /*<<dynarray.ml:710:38>>*/ return [0, a[1 + i]];
-               /*<<dynarray.ml:710:69>>*/ })];
-    /*<<dynarray.ml:711:3>>*/ }
-   function to_array(a){
-     /*<<dynarray.ml:714:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:715:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:716:12>>*/  /*<<dynarray.ml:716:12>>*/ var
-     res =
-        /*<<dynarray.ml:716:12>>*/ caml_call2
-        (Stdlib_Array[1],
-         length,
-         function(i){
-           /*<<dynarray.ml:717:4>>*/ return unsafe_get(arr, i, length);
-          /*<<dynarray.ml:717:29>>*/ });
-     /*<<dynarray.ml:719:2>>*/ check_same_length(cst_to_array, a, length);
-     /*<<dynarray.ml:719:2>>*/ return res;
-    /*<<dynarray.ml:720:5>>*/ }
-   function of_list(li){
-     /*<<dynarray.ml:723:2>>*/  /*<<dynarray.ml:723:10>>*/ var a = create(0);
-     /*<<dynarray.ml:724:2>>*/  /*<<dynarray.ml:724:2>>*/ caml_call2
-     (Stdlib_List[18],
-      function(x){
-        /*<<dynarray.ml:724:22>>*/ return add_last(a, x);
-       /*<<dynarray.ml:724:34>>*/ },
-      li);
-     /*<<dynarray.ml:724:2>>*/ return a;
-    /*<<dynarray.ml:725:3>>*/ }
-   function to_list(a){
-     /*<<dynarray.ml:728:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:729:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:730:10>>*/ var
-      /*<<dynarray.ml:730:10>>*/ l = [0, 0],
-      /*<<dynarray.ml:730:10>>*/ _l_ = length - 1 | 0;
-    if(_l_ >= 0){
-     var i = _l_;
-     for(;;){
-      var _m_ = l[1];
-      l[1] = [0, unsafe_get(arr, i, length), _m_];
-       /*<<dynarray.ml:730:10>>*/  /*<<dynarray.ml:730:10>>*/ var
-       _n_ = i - 1 | 0;
-      if(0 === i) break;
-      i = _n_;
-     }
-    }
-     /*<<dynarray.ml:734:2>>*/ check_same_length(cst_to_list, a, length);
-    return l[1];
-    /*<<dynarray.ml:735:4>>*/ }
-   function of_seq(seq){
-     /*<<dynarray.ml:738:2>>*/  /*<<dynarray.ml:738:13>>*/ var
-     init = create(0);
-     /*<<dynarray.ml:739:2>>*/ append_seq(init, seq);
-     /*<<dynarray.ml:739:2>>*/ return init;
-    /*<<dynarray.ml:740:6>>*/ }
-   function to_seq(a){
-     /*<<dynarray.ml:743:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:744:2>>*/ check_valid_length(length, arr);
-    function aux(i){
-      /*<<dynarray.ml:745:18>>*/ return function(param){
-       /*<<dynarray.ml:746:4>>*/ check_same_length(cst_to_seq, a, length);
-      if(length <= i)  /*<<dynarray.ml:747:24>>*/ return 0;
-       /*<<dynarray.ml:749:14>>*/  /*<<dynarray.ml:749:14>>*/ var
-       v = unsafe_get(arr, i, length);
-       /*<<dynarray.ml:750:6>>*/ return [0, v, aux(i + 1 | 0)]; /*<<dynarray.ml:751:7>>*/ };
-     /*<<dynarray.ml:751:7>>*/ }
-     /*<<dynarray.ml:753:2>>*/ return aux(0);
-    /*<<dynarray.ml:753:7>>*/ }
-   function to_seq_reentrant(a){
-    function aux(i){
-      /*<<dynarray.ml:756:18>>*/ return function(param){
-       /*<<dynarray.ml:757:4>>*/ if(a[1] <= i)
-        /*<<dynarray.ml:757:26>>*/ return 0;
-       /*<<dynarray.ml:759:14>>*/  /*<<dynarray.ml:759:14>>*/ var
-       v = get(a, i);
-       /*<<dynarray.ml:760:6>>*/ return [0, v, aux(i + 1 | 0)]; /*<<dynarray.ml:761:7>>*/ };
-     /*<<dynarray.ml:761:7>>*/ }
-     /*<<dynarray.ml:763:2>>*/ return aux(0);
-    /*<<dynarray.ml:763:7>>*/ }
-   function to_seq_rev(a){
-     /*<<dynarray.ml:766:2>>*/ var length = a[1], arr = a[2];
-     /*<<dynarray.ml:767:2>>*/ check_valid_length(length, arr);
-    function aux(i){
-      /*<<dynarray.ml:768:18>>*/ return function(param){
-       /*<<dynarray.ml:769:4>>*/ check_same_length(cst_to_seq_rev, a, length);
-      if(0 > i)  /*<<dynarray.ml:770:18>>*/ return 0;
-       /*<<dynarray.ml:772:14>>*/  /*<<dynarray.ml:772:14>>*/ var
-       v = unsafe_get(arr, i, length);
-       /*<<dynarray.ml:773:6>>*/ return [0, v, aux(i - 1 | 0)]; /*<<dynarray.ml:774:7>>*/ };
-     /*<<dynarray.ml:774:7>>*/ }
-     /*<<dynarray.ml:776:2>>*/ return aux(length - 1 | 0);
-    /*<<dynarray.ml:776:18>>*/ }
-   function to_seq_rev_reentrant(a){
-    function aux(i){
-      /*<<dynarray.ml:779:18>>*/ return function(param){
-       /*<<dynarray.ml:780:4>>*/ if(0 > i)
-        /*<<dynarray.ml:780:18>>*/ return 0;
-      if(a[1] <= i)  /*<<dynarray.ml:784:6>>*/ return aux(a[1] - 1 | 0)(0);
-       /*<<dynarray.ml:786:14>>*/  /*<<dynarray.ml:786:14>>*/ var
-       v = get(a, i);
-       /*<<dynarray.ml:787:6>>*/ return [0, v, aux(i - 1 | 0)]; /*<<dynarray.ml:788:7>>*/ };
-     /*<<dynarray.ml:788:7>>*/ }
-     /*<<dynarray.ml:790:7>>*/ return aux(a[1] - 1 | 0);
-    /*<<dynarray.ml:790:20>>*/ }
-   var
-    Stdlib_Dynarray =
-      [0,
-       create,
-       make,
-       init,
-       get,
-       set,
-       length,
-       is_empty,
-       get_last,
-       find_last,
-       copy,
-       add_last,
-       append_array,
-       append_list,
-       append,
-       append_seq,
-       append_iter,
-       pop_last_opt,
-       pop_last,
-       remove_last,
-       truncate,
-       clear,
-       iter$0,
-       iteri,
-       map,
-       mapi,
-       fold_left,
-       fold_right,
-       exists,
-       for_all,
-       filter,
-       filter_map,
-       of_array,
-       to_array,
-       of_list,
-       to_list,
-       of_seq,
-       to_seq,
-       to_seq_reentrant,
-       to_seq_rev,
-       to_seq_rev_reentrant,
-       capacity,
-       ensure_capacity,
-       ensure_extra_capacity,
-       fit_capacity,
-       set_capacity,
-       reset];
-   runtime.caml_register_global(44, Stdlib_Dynarray, "Stdlib__Dynarray");
-   return;
-   /*<<?>>*/ }
-  (globalThis));
-
-//# unitInfo: Provides: Stdlib__Arg
-//# unitInfo: Requires: Stdlib, Stdlib__Array, Stdlib__Buffer, Stdlib__Int, Stdlib__List, Stdlib__Printf, Stdlib__String, Stdlib__Sys
-(function
-  (globalThis){
-   "use strict";
-   var
-    runtime = globalThis.jsoo_runtime,
-    cst$8 = "",
-    cst$10 = "  ",
-    cst_Display_this_list_of_optio$1 = " Display this list of options",
-    cst_s = "%s",
-    cst_help$4 = "--help",
-    cst_help$3 = "-help",
-    cst$9 = ".\n",
-    cst_a_float$1 = "a float",
-    cst_an_integer$1 = "an integer",
-    caml_check_bound = runtime.caml_check_bound,
-    caml_equal = runtime.caml_equal,
-    caml_fresh_oo_id = runtime.caml_fresh_oo_id,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_string_length = runtime.caml_ml_string_length,
-    caml_string_get = runtime.caml_string_get,
-    caml_sys_argv = runtime.caml_sys_argv,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
-    return (f.l >= 0 ? f.l : f.l = f.length) == 1
-            ? f(a0)
-            : runtime.caml_call_gen(f, [a0]);
-   }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
-    return (f.l >= 0 ? f.l : f.l = f.length) == 2
-            ? f(a0, a1)
-            : runtime.caml_call_gen(f, [a0, a1]);
-   }
-    /*<<?>>*/ function caml_call3(f, a0, a1, a2){
-    return (f.l >= 0 ? f.l : f.l = f.length) == 3
-            ? f(a0, a1, a2)
-            : runtime.caml_call_gen(f, [a0, a1, a2]);
-   }
-    /*<<?>>*/ function caml_call4(f, a0, a1, a2, a3){
-    return (f.l >= 0 ? f.l : f.l = f.length) == 4
-            ? f(a0, a1, a2, a3)
-            : runtime.caml_call_gen(f, [a0, a1, a2, a3]);
-   }
-    /*<<?>>*/ function caml_call5(f, a0, a1, a2, a3, a4){
-    return (f.l >= 0 ? f.l : f.l = f.length) == 5
-            ? f(a0, a1, a2, a3, a4)
-            : runtime.caml_call_gen(f, [a0, a1, a2, a3, a4]);
-   }
-    /*<<?>>*/ function caml_call6(f, a0, a1, a2, a3, a4, a5){
-    return (f.l >= 0 ? f.l : f.l = f.length) == 6
-            ? f(a0, a1, a2, a3, a4, a5)
-            : runtime.caml_call_gen(f, [a0, a1, a2, a3, a4, a5]);
-   }
-    /*<<arg.ml:50:0>>*/ var
-    global_data = runtime.caml_get_global_data(),
-    cst$7 = "\n",
-    cst$4 = cst$8,
-    cst$5 = " ",
-    cst$6 = cst$8,
-    cst$2 = "(?)",
-    cst$3 = "-",
-    cst = "}",
-    cst$0 = "|",
-    cst$1 = "{",
-    Stdlib = global_data.Stdlib,
-    Stdlib_Printf = global_data.Stdlib__Printf,
-    Stdlib_Array = global_data.Stdlib__Array,
-    Stdlib_Buffer = global_data.Stdlib__Buffer,
-    Stdlib_List = global_data.Stdlib__List,
-    Stdlib_String = global_data.Stdlib__String,
-    Stdlib_Int = global_data.Stdlib__Int,
-     /*<<arg.ml:50:0>>*/ Bad = [248, "Stdlib.Arg.Bad", caml_fresh_oo_id(0)],
-     /*<<arg.ml:51:0>>*/ Help = [248, "Stdlib.Arg.Help", caml_fresh_oo_id(0)],
-     /*<<arg.ml:59:0>>*/ Stop = [248, "Stdlib.Arg.Stop", caml_fresh_oo_id(0)],
-    cst_none = "<none>",
-    _a_ =
-      [0, [11, cst$10, [2, 0, [12, 32, [2, 0, [12, 10, 0]]]]], "  %s %s\n"],
-    _b_ =
-      [0,
-       [11, cst$10, [2, 0, [12, 32, [2, 0, [2, 0, [12, 10, 0]]]]]],
-       "  %s %s%s\n"],
-    _c_ = [0, cst_help$3],
-    cst_Display_this_list_of_optio = cst_Display_this_list_of_optio$1,
-    cst_help = cst_help$3,
-    cst_Display_this_list_of_optio$0 = cst_Display_this_list_of_optio$1,
-    cst_help$0 = cst_help$4,
-    cst_help$1 = cst_help$4,
-    cst_help$2 = cst_help$3,
-    _d_ = [0, [2, 0, [12, 10, 0]], "%s\n"],
-    _e_ = [0, [2, 0, 0], cst_s];
-   function assoc3(x, l){
-     /*<<arg.ml:64:2>>*/ var l$0 = l;
-     /*<<arg.ml:64:2>>*/ for(;;){
-     if(! l$0)
-       /*<<arg.ml:65:10>>*/ throw  /*<<arg.ml:65:10>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
-     var match = l$0[1], y2 = match[2], y1 = match[1];
-      /*<<arg.ml:66:26>>*/ if( /*<<arg.ml:66:26>>*/ caml_equal(y1, x))
-       /*<<arg.ml:66:36>>*/ return y2;
-     var t = l$0[2];
-     l$0 = t;
-    }
-    /*<<arg.ml:67:24>>*/ }
-   function make_symlist(prefix, sep, suffix, l){
-     /*<<arg.ml:77:2>>*/ if(! l)  /*<<arg.ml:78:10>>*/ return cst_none;
-     /*<<arg.ml:79:53>>*/ var
-     t = l[2],
-     h = l[1],
-      /*<<arg.ml:79:53>>*/ _az_ =
-        /*<<arg.ml:79:53>>*/ caml_call2(Stdlib[28], prefix, h),
-      /*<<arg.ml:79:12>>*/ _aA_ =
-        /*<<arg.ml:79:12>>*/ caml_call3
-        (Stdlib_List[26],
-         function(x, y){
-           /*<<arg.ml:79:40>>*/  /*<<arg.ml:79:44>>*/ var
-           _aB_ =  /*<<arg.ml:79:44>>*/ caml_call2(Stdlib[28], sep, y);
-           /*<<arg.ml:79:44>>*/ return  /*<<arg.ml:79:44>>*/ caml_call2
-                  (Stdlib[28], x, _aB_);
-          /*<<arg.ml:79:51>>*/ },
-         _az_,
-         t);
-     /*<<arg.ml:79:12>>*/ return  /*<<arg.ml:79:12>>*/ caml_call2
-            (Stdlib[28], _aA_, suffix);
-    /*<<arg.ml:79:77>>*/ }
-   function help_action(param){
-     /*<<arg.ml:91:21>>*/ throw  /*<<arg.ml:91:21>>*/ caml_maybe_attach_backtrace
-           ([0, Stop, _c_], 1);
-    /*<<arg.ml:91:51>>*/ }
-   function add_help(speclist){
-     /*<<arg.ml:94:2>>*/ try{
-      /*<<arg.ml:95:15>>*/ assoc3(cst_help$2, speclist);
-      /*<<arg.ml:95:42>>*/ var  /*<<arg.ml:95:42>>*/ _aw_ = 0, add1 = _aw_;
-    }
-    catch(_ay_){
-     var _as_ = caml_wrap_exception(_ay_);
-     if(_as_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_as_, 0);
-     var
-      add1 =
-        [0,
-         [0, cst_help, [0, help_action], cst_Display_this_list_of_optio],
-         0];
-    }
-    try{
-      /*<<arg.ml:99:15>>*/ assoc3(cst_help$1, speclist);
-      /*<<arg.ml:99:43>>*/ var  /*<<arg.ml:99:43>>*/ _av_ = 0, add2 = _av_;
-    }
-    catch(_ax_){
-     var _at_ = caml_wrap_exception(_ax_);
-     if(_at_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_at_, 0);
-     var
-      add2 =
-        [0,
-         [0, cst_help$0, [0, help_action], cst_Display_this_list_of_optio$0],
-         0];
-    }
-     /*<<arg.ml:103:13>>*/  /*<<arg.ml:103:13>>*/ var
-     _au_ =  /*<<arg.ml:103:13>>*/ caml_call2(Stdlib[37], add1, add2);
-     /*<<arg.ml:103:13>>*/ return  /*<<arg.ml:103:13>>*/ caml_call2
-            (Stdlib[37], speclist, _au_);
-    /*<<arg.ml:103:26>>*/ }
-   function usage_b(buf, speclist, errmsg){
-     /*<<arg.ml:107:2>>*/  /*<<arg.ml:107:2>>*/ caml_call3
-     (Stdlib_Printf[5], buf, _d_, errmsg);
-     /*<<arg.ml:108:29>>*/  /*<<arg.ml:108:29>>*/ var
-     _ap_ = add_help(speclist);
-     /*<<arg.ml:108:29>>*/ return  /*<<arg.ml:108:29>>*/ caml_call2
-            (Stdlib_List[18],
-             function(param){
-              var
-               doc = param[3],
-               spec = param[2],
-               key = param[1],
-               _aq_ =
-                 0 <  /*<<arg.ml:83:2>>*/ caml_ml_string_length(doc) ? 1 : 0;
-              if(! _aq_) return _aq_;
-              if(11 !== spec[0])
-                /*<<arg.ml:88:8>>*/ return  /*<<arg.ml:88:8>>*/ caml_call4
-                       (Stdlib_Printf[5], buf, _a_, key, doc);
-               /*<<arg.ml:86:38>>*/ var
-               l = spec[1],
-                /*<<arg.ml:86:38>>*/ _ar_ = make_symlist(cst$1, cst$0, cst, l);
-               /*<<arg.ml:86:8>>*/ return  /*<<arg.ml:86:8>>*/ caml_call5
-                      (Stdlib_Printf[5], buf, _b_, key, _ar_, doc);
-             },
-             _ap_);
-    /*<<arg.ml:108:48>>*/ }
-   function usage_string(speclist, errmsg){
-     /*<<arg.ml:112:2>>*/  /*<<arg.ml:112:10>>*/ var
-     b =  /*<<arg.ml:112:10>>*/ caml_call1(Stdlib_Buffer[1], 200);
-     /*<<arg.ml:113:2>>*/ usage_b(b, speclist, errmsg);
-     /*<<arg.ml:113:2>>*/ return  /*<<arg.ml:113:2>>*/ caml_call1
-            (Stdlib_Buffer[2], b);
-    /*<<arg.ml:114:19>>*/ }
-   function usage(speclist, errmsg){
-     /*<<arg.ml:118:2>>*/  /*<<arg.ml:118:15>>*/ var
-     _ao_ = usage_string(speclist, errmsg);
-     /*<<arg.ml:118:15>>*/ return  /*<<arg.ml:118:15>>*/ caml_call2
-            (Stdlib_Printf[3], _e_, _ao_);
-    /*<<arg.ml:118:45>>*/ }
-    /*<<arg.ml:121:14>>*/ var
-     /*<<arg.ml:121:14>>*/ current = [0, 0],
-    _f_ =
-      [0,
-       [2, 0, [11, ": unknown option '", [2, 0, [11, "'.\n", 0]]]],
-       "%s: unknown option '%s'.\n"],
-    _g_ = [0, cst_help$3],
-    _h_ = [0, cst_help$4],
-    _i_ =
-      [0,
-       [2,
-        0,
-        [11,
-         ": wrong argument '",
-         [2,
-          0,
-          [11,
-           "'; option '",
-           [2, 0, [11, "' expects ", [2, 0, [11, cst$9, 0]]]]]]]],
-       "%s: wrong argument '%s'; option '%s' expects %s.\n"],
-    _j_ =
-      [0,
-       [2, 0, [11, ": option '", [2, 0, [11, "' needs an argument.\n", 0]]]],
-       "%s: option '%s' needs an argument.\n"],
-    _k_ = [0, [2, 0, [11, ": ", [2, 0, [11, cst$9, 0]]]], "%s: %s.\n"],
-    cst_no_argument = "no argument",
-    cst_a_boolean = "a boolean",
-    cst_an_integer = cst_an_integer$1,
-    cst_an_integer$0 = cst_an_integer$1,
-    cst_a_float = cst_a_float$1,
-    cst_a_float$0 = cst_a_float$1,
-    cst_one_of = "one of: ",
-    cst_Arg_Expand_is_is_only_allo =
-      "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic",
-    _l_ = [0, [2, 0, 0], cst_s],
-    _m_ = [0, [2, 0, 0], cst_s],
-    _n_ = [0, [2, 0, 0], cst_s],
-    _o_ = [0, [2, 0, 0], cst_s],
-    _p_ = [0, [2, 0, 0], cst_s],
-    _q_ = [0, [2, 0, 0], cst_s],
-    dummy = 0;
-   function int_of_string_opt(x){
-     /*<<arg.ml:128:2>>*/ try{
-      /*<<arg.ml:128:6>>*/  /*<<arg.ml:128:6>>*/ var
-      _am_ = [0,  /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string(x)];
-      /*<<arg.ml:128:6>>*/ return _am_;
-    }
-    catch(_an_){
-     var _al_ = caml_wrap_exception(_an_);
-     if(_al_[1] === Stdlib[7])  /*<<arg.ml:129:20>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_al_, 0);
-    }
-    /*<<arg.ml:129:24>>*/ }
-   function float_of_string_opt(x){
-     /*<<arg.ml:132:2>>*/ try{
-      /*<<arg.ml:132:6>>*/  /*<<arg.ml:132:6>>*/ var
-      _aj_ = [0,  /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string(x)];
-      /*<<arg.ml:132:6>>*/ return _aj_;
-    }
-    catch(_ak_){
-     var _ai_ = caml_wrap_exception(_ak_);
-     if(_ai_[1] === Stdlib[7])  /*<<arg.ml:133:20>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_ai_, 0);
-    }
-    /*<<arg.ml:133:24>>*/ }
-   function parse_and_expand_argv_dynamic_
-   (allow_expand, current, argv, speclist, anonfun, errmsg){
-    var initpos = current[1];
-    function convert_error(error){
-      /*<<arg.ml:143:4>>*/ var
-       /*<<arg.ml:143:12>>*/ b =
-         /*<<arg.ml:143:12>>*/ caml_call1(Stdlib_Buffer[1], 200),
-      progname =
-        initpos < argv[1].length - 1
-         ? caml_check_bound(argv[1], initpos)[1 + initpos]
-         : cst$2;
-      /*<<arg.ml:146:4>>*/ switch(error[0]){
-       case 0:
-        var s = error[1];
-        if(s !== cst_help$4 && s !== cst_help$3)
-          /*<<arg.ml:150:10>>*/  /*<<arg.ml:150:10>>*/ caml_call4
-          (Stdlib_Printf[5], b, _f_, progname, s);
-        break;
-       case 1:
-        var expected = error[3], arg = error[2], opt = error[1];
-         /*<<arg.ml:154:10>>*/  /*<<arg.ml:154:10>>*/ caml_call6
-         (Stdlib_Printf[5], b, _i_, progname, arg, opt, expected);
-        break;
-       case 2:
-        var s$0 = error[1];
-         /*<<arg.ml:152:10>>*/  /*<<arg.ml:152:10>>*/ caml_call4
-         (Stdlib_Printf[5], b, _j_, progname, s$0);
-        break;
-       default:
-        var s$1 = error[1];
-         /*<<arg.ml:157:10>>*/  /*<<arg.ml:157:10>>*/ caml_call4
-         (Stdlib_Printf[5], b, _k_, progname, s$1);
+    /*<<arg.ml:133:24>>*/ }
+   function parse_and_expand_argv_dynamic_
+   (allow_expand, current, argv, speclist, anonfun, errmsg){
+    var initpos = current[1];
+    function convert_error(error){
+      /*<<arg.ml:143:4>>*/ var
+       /*<<arg.ml:143:12>>*/ b =
+         /*<<arg.ml:143:12>>*/ caml_call1(Stdlib_Buffer[1], 200),
+      progname =
+        initpos < argv[1].length - 1
+         ? caml_check_bound(argv[1], initpos)[1 + initpos]
+         : cst$2;
+      /*<<arg.ml:146:4>>*/ switch(error[0]){
+       case 0:
+        var s = error[1];
+        if(s !== cst_help$4 && s !== cst_help$3)
+          /*<<arg.ml:150:10>>*/  /*<<arg.ml:150:10>>*/ caml_call4
+          (Stdlib_Printf[5], b, _f_, progname, s);
+        break;
+       case 1:
+        var expected = error[3], arg = error[2], opt = error[1];
+         /*<<arg.ml:154:10>>*/  /*<<arg.ml:154:10>>*/ caml_call6
+         (Stdlib_Printf[5], b, _i_, progname, arg, opt, expected);
+        break;
+       case 2:
+        var s$0 = error[1];
+         /*<<arg.ml:152:10>>*/  /*<<arg.ml:152:10>>*/ caml_call4
+         (Stdlib_Printf[5], b, _j_, progname, s$0);
+        break;
+       default:
+        var s$1 = error[1];
+         /*<<arg.ml:157:10>>*/  /*<<arg.ml:157:10>>*/ caml_call4
+         (Stdlib_Printf[5], b, _k_, progname, s$1);
      }
       /*<<arg.ml:159:4>>*/ usage_b(b, speclist[1], errmsg);
       /*<<arg.ml:160:34>>*/ if
@@ -23167,26 +22390,26 @@
             (Stdlib_Atomic[4], a, 0);
     /*<<gc.ml:115:39>>*/ }
    function create_alarm(f){
-     /*<<gc.ml:118:2>>*/  /*<<gc.ml:118:24>>*/ var
-     _y_ =  /*<<gc.ml:118:24>>*/ caml_call1(Stdlib_Atomic[1], 1);
-     /*<<gc.ml:119:2>>*/  /*<<gc.ml:119:2>>*/ caml_call1
+     /*<<gc.ml:119:2>>*/  /*<<gc.ml:119:14>>*/ var
+     alarm =  /*<<gc.ml:119:14>>*/ caml_call1(Stdlib_Atomic[1], 1);
+     /*<<gc.ml:120:2>>*/  /*<<gc.ml:120:2>>*/ caml_call1
      (Stdlib_Domain[6],
       function(param){
-        /*<<gc.ml:119:28>>*/ return delete_alarm(_y_);
-       /*<<gc.ml:119:52>>*/ });
-    return _y_;
-    /*<<gc.ml:121:13>>*/ }
-    /*<<gc.ml:142:23>>*/  /*<<gc.ml:142:23>>*/ var
+        /*<<gc.ml:120:28>>*/ return delete_alarm(alarm);
+       /*<<gc.ml:120:46>>*/ });
+     /*<<gc.ml:122:2>>*/ return alarm;
+    /*<<gc.ml:123:7>>*/ }
+    /*<<gc.ml:144:23>>*/  /*<<gc.ml:144:23>>*/ var
     null_tracker =
       [0,
-       function(param){ /*<<gc.ml:143:30>>*/ return 0; /*<<gc.ml:143:34>>*/ },
-       function(param){ /*<<gc.ml:144:30>>*/ return 0; /*<<gc.ml:144:34>>*/ },
-       function(param){ /*<<gc.ml:145:26>>*/ return 0; /*<<gc.ml:145:30>>*/ },
-       function(param){ /*<<gc.ml:146:32>>*/ return 0; /*<<gc.ml:146:34>>*/ },
-       function(param){ /*<<gc.ml:147:32>>*/ return 0; /*<<gc.ml:147:34>>*/ }];
+       function(param){ /*<<gc.ml:145:30>>*/ return 0; /*<<gc.ml:145:34>>*/ },
+       function(param){ /*<<gc.ml:146:30>>*/ return 0; /*<<gc.ml:146:34>>*/ },
+       function(param){ /*<<gc.ml:147:26>>*/ return 0; /*<<gc.ml:147:30>>*/ },
+       function(param){ /*<<gc.ml:148:32>>*/ return 0; /*<<gc.ml:148:34>>*/ },
+       function(param){ /*<<gc.ml:149:32>>*/ return 0; /*<<gc.ml:149:34>>*/ }];
    function start(sampling_rate, opt, tracker){
     var callstack_size = opt ? opt[1] : Stdlib[19];
-     /*<<gc.ml:158:6>>*/ return  /*<<gc.ml:158:6>>*/ runtime.caml_memprof_start
+     /*<<gc.ml:160:6>>*/ return  /*<<gc.ml:160:6>>*/ runtime.caml_memprof_start
             (sampling_rate, callstack_size, tracker);
    }
    var
@@ -24041,6 +23264,7 @@
     runtime = globalThis.jsoo_runtime,
     cst_Bigarray_Array3_of_array_n$1 =
       "Bigarray.Array3.of_array: non-cubic data",
+    caml_array_make = runtime.caml_array_make,
     caml_ba_change_layout = runtime.caml_ba_change_layout,
     caml_ba_create = runtime.caml_ba_create,
     caml_ba_dim_1 = runtime.caml_ba_dim_1,
@@ -24054,7 +23278,6 @@
     caml_ba_set_generic = runtime.caml_ba_set_generic,
     caml_ba_slice = runtime.caml_ba_slice,
     caml_check_bound = runtime.caml_check_bound,
-    caml_make_vect = runtime.caml_make_vect,
     caml_mul = runtime.caml_mul;
     /*<<?>>*/ function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) == 1
@@ -24168,14 +23391,14 @@
      /*<<bigarray.ml:122:4>>*/ return layout
             ? (floop
                (arr,
-                 /*<<bigarray.ml:124:34>>*/ caml_make_vect(dlen, 1),
+                 /*<<bigarray.ml:124:34>>*/ caml_array_make(dlen, 1),
                 f,
                 dlen - 1 | 0,
                 dims),
               arr)
             : (cloop
                (arr,
-                 /*<<bigarray.ml:123:28>>*/ caml_make_vect(dlen, 0),
+                 /*<<bigarray.ml:123:28>>*/ caml_array_make(dlen, 0),
                 f,
                 0,
                 dims),
@@ -24186,7 +23409,7 @@
       /*<<bigarray.ml:129:12>>*/ n =
         /*<<bigarray.ml:129:12>>*/ caml_ba_num_dims(a),
       /*<<bigarray.ml:130:12>>*/ d =
-        /*<<bigarray.ml:130:12>>*/ caml_make_vect(n, 0),
+        /*<<bigarray.ml:130:12>>*/ caml_array_make(n, 0),
       /*<<bigarray.ml:131:4>>*/ _af_ = n - 1 | 0,
       /*<<bigarray.ml:130:12>>*/ _ae_ = 0;
     if(_af_ >= 0){
@@ -25158,101 +24381,101 @@
     /*<<random.ml:341:2>>*/  /*<<random.ml:341:2>>*/ var
     random_key =
        /*<<random.ml:341:2>>*/ caml_call2
-       (Stdlib_Domain[10][1], [0, split], mk_default);
+       (Stdlib_Domain[11][1], [0, split], mk_default);
    function bits$0(param){
      /*<<random.ml:343:14>>*/ return bits
             ( /*<<random.ml:343:25>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key));
+              (Stdlib_Domain[11][2], random_key));
     /*<<random.ml:343:52>>*/ }
    function int$1(bound){
      /*<<random.ml:344:16>>*/ return int$0
             ( /*<<random.ml:344:26>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              bound);
     /*<<random.ml:344:59>>*/ }
    function full_int$0(bound){
      /*<<random.ml:345:21>>*/ return full_int
             ( /*<<random.ml:345:36>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              bound);
     /*<<random.ml:345:69>>*/ }
    function int_in_range$0(min, max){
      /*<<random.ml:347:2>>*/ return int_in_range
             ( /*<<random.ml:347:21>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              min,
              max);
     /*<<random.ml:347:58>>*/ }
    function int32$0(bound){
      /*<<random.ml:348:18>>*/ return int32
             ( /*<<random.ml:348:30>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              bound);
     /*<<random.ml:348:63>>*/ }
    function int32_in_range$0(min, max){
      /*<<random.ml:350:2>>*/ return int32_in_range
             ( /*<<random.ml:350:23>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              min,
              max);
     /*<<random.ml:350:60>>*/ }
    function nativeint$0(bound){
      /*<<random.ml:351:22>>*/ return nativeint
             ( /*<<random.ml:351:38>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              bound);
     /*<<random.ml:351:71>>*/ }
    function nativeint_in_range$0(min, max){
      /*<<random.ml:353:2>>*/ return nativeint_in_range
             ( /*<<random.ml:353:27>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              min,
              max);
     /*<<random.ml:353:64>>*/ }
    function int64$0(bound){
      /*<<random.ml:354:18>>*/ return int64
             ( /*<<random.ml:354:30>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              bound);
     /*<<random.ml:354:63>>*/ }
    function int64_in_range$0(min, max){
      /*<<random.ml:356:2>>*/ return int64_in_range
             ( /*<<random.ml:356:23>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              min,
              max);
     /*<<random.ml:356:60>>*/ }
    function float$1(scale){
      /*<<random.ml:357:18>>*/ return float$0
             ( /*<<random.ml:357:30>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              scale);
     /*<<random.ml:357:63>>*/ }
    function bool$0(param){
      /*<<random.ml:358:14>>*/ return bool
             ( /*<<random.ml:358:25>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key));
+              (Stdlib_Domain[11][2], random_key));
     /*<<random.ml:358:52>>*/ }
    function bits32$0(param){
      /*<<random.ml:359:16>>*/ return bits32
             ( /*<<random.ml:359:29>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key));
+              (Stdlib_Domain[11][2], random_key));
     /*<<random.ml:359:56>>*/ }
    function bits64$0(param){
      /*<<random.ml:360:16>>*/  /*<<random.ml:360:29>>*/ var
      s =
-        /*<<random.ml:360:29>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
+        /*<<random.ml:360:29>>*/ caml_call1(Stdlib_Domain[11][2], random_key);
      /*<<random.ml:258:4>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next(s);
     /*<<random.ml:360:56>>*/ }
    function nativebits$0(param){
      /*<<random.ml:361:20>>*/ return nativebits
             ( /*<<random.ml:361:37>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key));
+              (Stdlib_Domain[11][2], random_key));
     /*<<random.ml:361:64>>*/ }
    function full_init(seed){
      /*<<random.ml:363:21>>*/ return reinit
             ( /*<<random.ml:363:34>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key),
+              (Stdlib_Domain[11][2], random_key),
              seed);
     /*<<random.ml:363:66>>*/ }
    function init(seed){
@@ -25265,17 +24488,17 @@
    function split$0(param){
      /*<<random.ml:369:15>>*/ return split
             ( /*<<random.ml:369:27>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key));
+              (Stdlib_Domain[11][2], random_key));
     /*<<random.ml:369:54>>*/ }
    function get_state(param){
      /*<<random.ml:373:19>>*/ return copy
             ( /*<<random.ml:373:30>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key));
+              (Stdlib_Domain[11][2], random_key));
     /*<<random.ml:373:57>>*/ }
    function set_state(src){
      /*<<random.ml:374:18>>*/  /*<<random.ml:374:31>>*/ var
      dst =
-        /*<<random.ml:374:31>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
+        /*<<random.ml:374:31>>*/ caml_call1(Stdlib_Domain[11][2], random_key);
      /*<<random.ml:86:4>>*/ return  /*<<random.ml:86:4>>*/ caml_ba_blit
             (src, dst);
     /*<<random.ml:374:60>>*/ }
@@ -25337,10 +24560,10 @@
    "use strict";
    var
     runtime = globalThis.jsoo_runtime,
+    caml_array_make = runtime.caml_array_make,
     caml_check_bound = runtime.caml_check_bound,
     caml_compare = runtime.caml_compare,
     caml_hash = runtime.caml_hash,
-    caml_make_vect = runtime.caml_make_vect,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_sys_getenv = runtime.caml_sys_getenv,
     caml_wrap_exception = runtime.caml_wrap_exception;
@@ -25428,7 +24651,7 @@
     /*<<hashtbl.ml:60:15>>*/  /*<<hashtbl.ml:60:15>>*/ var
     prng_key =
        /*<<hashtbl.ml:60:15>>*/ caml_call2
-       (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
+       (Stdlib_Domain[11][1], 0, Stdlib_Random[19][2]);
    function power_2_above(x, n){
      /*<<hashtbl.ml:69:2>>*/ var x$0 = x;
      /*<<hashtbl.ml:69:2>>*/ for(;;){
@@ -25448,13 +24671,13 @@
      /*<<hashtbl.ml:75:2>>*/ if(random)
       /*<<hashtbl.ml:76:37>>*/ var
        /*<<hashtbl.ml:76:37>>*/ _ak_ =
-         /*<<hashtbl.ml:76:37>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
+         /*<<hashtbl.ml:76:37>>*/ caml_call1(Stdlib_Domain[11][2], prng_key),
       seed =  /*<<hashtbl.ml:76:19>>*/ caml_call1(Stdlib_Random[19][4], _ak_);
     else
      var seed = 0;
      /*<<hashtbl.ml:78:2>>*/ return [0,
             0,
-             /*<<hashtbl.ml:78:52>>*/ caml_make_vect(s, 0),
+             /*<<hashtbl.ml:78:52>>*/ caml_array_make(s, 0),
             seed,
             s];
    }
@@ -25475,7 +24698,7 @@
       && len !==  /*<<hashtbl.ml:89:13>>*/ caml_call1(Stdlib[18], h[4])){
      h[1] = 0;
      h[2] =
-       /*<<hashtbl.ml:93:14>>*/ caml_make_vect
+       /*<<hashtbl.ml:93:14>>*/ caml_array_make
        ( /*<<hashtbl.ml:93:25>>*/ caml_call1(Stdlib[18], h[4]), 0);
      return 0;
     }
@@ -25518,7 +24741,7 @@
      /*<<hashtbl.ml:118:2>>*/ var
      nsize = ndata.length - 1,
       /*<<hashtbl.ml:119:19>>*/ ndata_tail =
-        /*<<hashtbl.ml:119:19>>*/ caml_make_vect(nsize, 0),
+        /*<<hashtbl.ml:119:19>>*/ caml_array_make(nsize, 0),
      _aa_ = odata.length - 2 | 0,
       /*<<hashtbl.ml:135:2>>*/ _$_ = 0;
     if(_aa_ >= 0){
@@ -25584,7 +24807,7 @@
     if(! ___) return ___;
      /*<<hashtbl.ml:150:16>>*/ var
       /*<<hashtbl.ml:150:16>>*/ ndata =
-        /*<<hashtbl.ml:150:16>>*/ caml_make_vect(nsize, 0),
+        /*<<hashtbl.ml:150:16>>*/ caml_array_make(nsize, 0),
       /*<<hashtbl.ml:151:22>>*/ inplace = 1 - ongoing_traversal(h);
     h[2] = ndata;
      /*<<hashtbl.ml:153:4>>*/ return insert_all_buckets
@@ -25758,7 +24981,7 @@
          0,
          h[2]),
       /*<<hashtbl.ml:242:14>>*/ histo =
-        /*<<hashtbl.ml:242:14>>*/ caml_make_vect(mbl + 1 | 0, 0);
+        /*<<hashtbl.ml:242:14>>*/ caml_array_make(mbl + 1 | 0, 0);
      /*<<hashtbl.ml:243:2>>*/  /*<<hashtbl.ml:243:2>>*/ caml_call2
      (Stdlib_Array[12],
       function(b){
@@ -26328,14 +25551,14 @@
      /*<<hashtbl.ml:623:2>>*/ if(random)
       /*<<hashtbl.ml:624:37>>*/ var
        /*<<hashtbl.ml:624:37>>*/ _g_ =
-         /*<<hashtbl.ml:624:37>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
+         /*<<hashtbl.ml:624:37>>*/ caml_call1(Stdlib_Domain[11][2], prng_key),
       seed =  /*<<hashtbl.ml:624:19>>*/ caml_call1(Stdlib_Random[19][4], _g_);
     else
      var seed = 4 <= h.length - 1 ? h[3] : 0;
      /*<<hashtbl.ml:627:11>>*/ var
      _h_ = 4 <= h.length - 1 ? h[4] : s,
       /*<<hashtbl.ml:627:11>>*/ h$0 =
-       [0, h[1],  /*<<hashtbl.ml:629:11>>*/ caml_make_vect(s, 0), seed, _h_];
+       [0, h[1],  /*<<hashtbl.ml:629:11>>*/ caml_array_make(s, 0), seed, _h_];
      /*<<hashtbl.ml:633:2>>*/ insert_all_buckets
      (function(_i_){ /*<<?>>*/ return key_index(h$0, _i_);}, 0, h[2], h$0[2]);
      /*<<hashtbl.ml:633:2>>*/ return h$0;
@@ -26386,8 +25609,8 @@
    "use strict";
    var
     runtime = globalThis.jsoo_runtime,
+    caml_array_make = runtime.caml_array_make,
     caml_check_bound = runtime.caml_check_bound,
-    caml_make_vect = runtime.caml_make_vect,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_mod = runtime.caml_mod;
     /*<<?>>*/ function caml_call1(f, a0){
@@ -26522,8 +25745,8 @@
       sz$0 = 7 <= sz ? sz : 7,
       sz$1 = Stdlib_Sys[13] < sz$0 ? Stdlib_Sys[13] : sz$0;
       /*<<weak.ml:125:4>>*/ return [0,
-              /*<<weak.ml:126:14>>*/ caml_make_vect(sz$1, emptybucket),
-              /*<<weak.ml:127:15>>*/ caml_make_vect(sz$1, [0]),
+              /*<<weak.ml:126:14>>*/ caml_array_make(sz$1, emptybucket),
+              /*<<weak.ml:127:15>>*/ caml_array_make(sz$1, [0]),
              limit,
              0,
              0];
@@ -26646,7 +25869,7 @@
       /*<<weak.ml:247:24>>*/ var
        /*<<weak.ml:247:24>>*/ newbucket$0 = create(newsz),
        /*<<weak.ml:248:24>>*/ newhashes =
-         /*<<weak.ml:248:24>>*/ caml_make_vect(newsz, 0);
+         /*<<weak.ml:248:24>>*/ caml_array_make(newsz, 0);
       /*<<weak.ml:249:8>>*/ blit(bucket$0, 0, newbucket$0, 0, sz);
       /*<<weak.ml:250:8>>*/  /*<<weak.ml:250:8>>*/ caml_call5
       (Stdlib_Array[9], hashes, 0, newhashes, 0, sz);
@@ -27010,15 +26233,15 @@
     Stdlib_Int = global_data.Stdlib__Int,
     Stdlib_Bytes = global_data.Stdlib__Bytes;
    function id(x){ /*<<format.ml:23:11>>*/ return x; /*<<format.ml:23:12>>*/ }
-    /*<<format.ml:91:13>>*/ var
+    /*<<format.ml:92:13>>*/ var
     zero = 0,
     unknown = -1,
-     /*<<format.ml:91:13>>*/ String_tag =
+     /*<<format.ml:92:13>>*/ String_tag =
       [248, "Stdlib.Format.String_tag", runtime.caml_fresh_oo_id(0)];
    function pp_enqueue(state, token){
-     /*<<format.ml:219:2>>*/ state[13] = state[13] + token[3] | 0;
+     /*<<format.ml:220:2>>*/ state[13] = state[13] + token[3] | 0;
     return caml_call2(Stdlib_Queue[3], token, state[28]);
-    /*<<format.ml:220:32>>*/ }
+    /*<<format.ml:221:32>>*/ }
    var
     pp_infinity = 1000000010,
     _b_ = [0, cst$16],
@@ -27028,64 +26251,64 @@
     _f_ = [1, "max_indent < 2"],
     cst_Format_pp_set_geometry = "Format.pp_set_geometry: ";
    function pp_output_string(state, s){
-     /*<<format.ml:251:31>>*/ return caml_call3
+     /*<<format.ml:252:31>>*/ return caml_call3
             (state[17], s, 0, caml_ml_string_length(s));
-    /*<<format.ml:251:72>>*/ }
+    /*<<format.ml:252:72>>*/ }
    function pp_output_newline(state){
-     /*<<format.ml:252:30>>*/ return  /*<<format.ml:252:30>>*/ caml_call1
+     /*<<format.ml:255:30>>*/ return  /*<<format.ml:255:30>>*/ caml_call1
             (state[19], 0);
-    /*<<format.ml:252:53>>*/ }
+    /*<<format.ml:255:53>>*/ }
    function format_pp_text(state, size, text){
-     /*<<format.ml:258:2>>*/ state[9] = state[9] - size | 0;
-     /*<<format.ml:259:2>>*/ pp_output_string(state, text);
+     /*<<format.ml:261:2>>*/ state[9] = state[9] - size | 0;
+     /*<<format.ml:262:2>>*/ pp_output_string(state, text);
     state[11] = 0;
-    /*<<format.ml:260:31>>*/ }
+    /*<<format.ml:263:31>>*/ }
    function format_string(state, s){
-     /*<<format.ml:264:2>>*/  /*<<format.ml:264:5>>*/ var
-     _a__ = s !== cst$16 ? 1 : 0;
-     /*<<format.ml:264:5>>*/ return _a__
+     /*<<format.ml:273:2>>*/  /*<<format.ml:273:5>>*/ var
+     _a$_ = s !== cst$16 ? 1 : 0;
+     /*<<format.ml:273:5>>*/ return _a$_
             ? format_pp_text(state, caml_ml_string_length(s), s)
-            : _a__;
-    /*<<format.ml:264:58>>*/ }
+            : _a$_;
+    /*<<format.ml:273:58>>*/ }
    function break_new_line(state, param, width){
     var after = param[3], offset = param[2], before = param[1];
-     /*<<format.ml:268:2>>*/ format_string(state, before);
-     /*<<format.ml:269:2>>*/ pp_output_newline(state);
+     /*<<format.ml:277:2>>*/ format_string(state, before);
+     /*<<format.ml:278:2>>*/ pp_output_newline(state);
     state[11] = 1;
-     /*<<format.ml:273:20>>*/ var
+     /*<<format.ml:282:20>>*/ var
      indent = (state[6] - width | 0) + offset | 0,
-      /*<<format.ml:273:20>>*/ real_indent =
-        /*<<format.ml:273:20>>*/ caml_call2(Stdlib_Int[10], state[8], indent);
+      /*<<format.ml:282:20>>*/ real_indent =
+        /*<<format.ml:282:20>>*/ caml_call2(Stdlib_Int[10], state[8], indent);
     state[10] = real_indent;
     state[9] = state[6] - state[10] | 0;
     var n = state[10];
-     /*<<format.ml:254:31>>*/  /*<<format.ml:254:31>>*/ caml_call1
+     /*<<format.ml:257:31>>*/  /*<<format.ml:257:31>>*/ caml_call1
      (state[21], n);
-     /*<<format.ml:276:2>>*/ return format_string(state, after);
+     /*<<format.ml:285:2>>*/ return format_string(state, after);
    }
    function break_same_line(state, param){
     var after = param[3], width = param[2], before = param[1];
-     /*<<format.ml:285:2>>*/ format_string(state, before);
+     /*<<format.ml:294:2>>*/ format_string(state, before);
     state[9] = state[9] - width | 0;
-     /*<<format.ml:253:31>>*/  /*<<format.ml:253:31>>*/ caml_call1
+     /*<<format.ml:256:31>>*/  /*<<format.ml:256:31>>*/ caml_call1
      (state[20], width);
-     /*<<format.ml:287:2>>*/ return format_string(state, after);
+     /*<<format.ml:296:2>>*/ return format_string(state, after);
    }
    function format_pp_token(state, size$0, param){
      /*<<?>>*/ if(typeof param === "number")
      switch(param){
        case 0:
-         /*<<format.ml:348:16>>*/  /*<<format.ml:348:16>>*/ var
+         /*<<format.ml:357:16>>*/  /*<<format.ml:357:16>>*/ var
          match$3 =
-            /*<<format.ml:348:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
-        if(! match$3)  /*<<format.ml:349:14>>*/ return;
-         /*<<format.ml:351:6>>*/ var
+            /*<<format.ml:357:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
+        if(! match$3)  /*<<format.ml:358:14>>*/ return;
+         /*<<format.ml:360:6>>*/ var
          tabs = match$3[1][1],
-          /*<<format.ml:351:6>>*/ add_tab =
+          /*<<format.ml:360:6>>*/ add_tab =
            function(n, ls){
-             /*<<?>>*/ if(! ls)  /*<<format.ml:352:16>>*/ return [0, n, 0];
+             /*<<?>>*/ if(! ls)  /*<<format.ml:361:16>>*/ return [0, n, 0];
             var l = ls[2], x = ls[1];
-             /*<<format.ml:353:29>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
+             /*<<format.ml:362:29>>*/ return  /*<<format.ml:362:29>>*/ runtime.caml_lessthan
                      (n, x)
                     ? [0, n, ls]
                     : [0, x, add_tab(n, l)];
@@ -27093,68 +26316,75 @@
         tabs[1] = add_tab(state[6] - state[9] | 0, tabs[1]);
         return;
        case 1:
-         /*<<format.ml:339:4>>*/  /*<<format.ml:339:4>>*/ caml_call1
+         /*<<format.ml:348:4>>*/  /*<<format.ml:348:4>>*/ caml_call1
          (Stdlib_Stack[5], state[2]);
-         /*<<format.ml:339:4>>*/ return;
+         /*<<format.ml:348:4>>*/ return;
        case 2:
-         /*<<format.ml:345:4>>*/  /*<<format.ml:345:4>>*/ caml_call1
+         /*<<format.ml:354:4>>*/  /*<<format.ml:354:4>>*/ caml_call1
          (Stdlib_Stack[5], state[3]);
-         /*<<format.ml:345:4>>*/ return;
+         /*<<format.ml:354:4>>*/ return;
        case 3:
-         /*<<format.ml:378:16>>*/  /*<<format.ml:378:16>>*/ var
+         /*<<format.ml:387:16>>*/  /*<<format.ml:387:16>>*/ var
          match$4 =
-            /*<<format.ml:378:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
+            /*<<format.ml:387:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
         if(! match$4)
-          /*<<format.ml:379:14>>*/ return pp_output_newline(state);
+          /*<<format.ml:388:14>>*/ return pp_output_newline(state);
         var width$0 = match$4[1][2];
-         /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0);
+         /*<<format.ml:290:29>>*/ return break_new_line(state, _a_, width$0);
        case 4:
-        var _a8_ = state[10] !== (state[6] - state[9] | 0) ? 1 : 0;
-        if(! _a8_) return _a8_;
-         /*<<format.ml:306:8>>*/  /*<<format.ml:306:8>>*/ var
+        var _a9_ = state[10] !== (state[6] - state[9] | 0) ? 1 : 0;
+        if(! _a9_) return _a9_;
+         /*<<format.ml:315:8>>*/  /*<<format.ml:315:8>>*/ var
          match$1 =
-            /*<<format.ml:306:8>>*/ caml_call1(Stdlib_Queue[6], state[28]);
-        if(! match$1)  /*<<format.ml:307:12>>*/ return;
+            /*<<format.ml:315:8>>*/ caml_call1(Stdlib_Queue[6], state[28]);
+        if(! match$1)  /*<<format.ml:316:12>>*/ return;
         var match$2 = match$1[1], size = match$2[1], length = match$2[3];
         state[12] = state[12] - length | 0;
         state[9] = state[9] + size | 0;
         return;
        default:
-         /*<<format.ml:419:17>>*/  /*<<format.ml:419:17>>*/ var
+         /*<<format.ml:428:17>>*/  /*<<format.ml:428:17>>*/ var
          match$5 =
-            /*<<format.ml:419:17>>*/ caml_call1(Stdlib_Stack[5], state[5]);
-        if(! match$5)  /*<<format.ml:420:15>>*/ return;
-         /*<<format.ml:422:20>>*/ var
+            /*<<format.ml:428:17>>*/ caml_call1(Stdlib_Stack[5], state[5]);
+        if(! match$5)  /*<<format.ml:429:15>>*/ return;
+         /*<<format.ml:431:20>>*/ var
          tag_name = match$5[1],
-          /*<<format.ml:422:20>>*/ marker =
-            /*<<format.ml:422:20>>*/ caml_call1(state[25], tag_name);
-         /*<<format.ml:423:7>>*/ return pp_output_string(state, marker);
+          /*<<format.ml:431:20>>*/ marker =
+            /*<<format.ml:431:20>>*/ caml_call1(state[25], tag_name);
+         /*<<format.ml:432:7>>*/ return pp_output_string(state, marker);
      }
     switch(param[0]){
       case 0:
        var s = param[1];
-        /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s);
+        /*<<format.ml:331:4>>*/ return format_pp_text(state, size$0, s);
       case 1:
-        /*<<format.ml:388:4>>*/ var
+       var len = param[3], pos = param[2], source = param[1];
+       state[9] = state[9] - size$0 | 0;
+        /*<<format.ml:254:2>>*/  /*<<format.ml:254:2>>*/ caml_call3
+        (state[17], source, pos, len);
+       state[11] = 0;
+       return;
+      case 2:
+        /*<<format.ml:397:4>>*/ var
         breaks = param[2],
         fits = param[1],
-         /*<<format.ml:388:4>>*/ off = breaks[2],
+         /*<<format.ml:397:4>>*/ off = breaks[2],
         before = breaks[1],
-         /*<<format.ml:389:16>>*/ match$6 =
-           /*<<format.ml:389:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
-       if(! match$6)  /*<<format.ml:390:14>>*/ return;
+         /*<<format.ml:398:16>>*/ match$6 =
+           /*<<format.ml:398:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
+       if(! match$6)  /*<<format.ml:399:14>>*/ return;
        var
         match$7 = match$6[1],
         width$1 = match$7[2],
         box_type$0 = match$7[1];
-        /*<<format.ml:392:6>>*/ switch(box_type$0){
+        /*<<format.ml:401:6>>*/ switch(box_type$0){
          case 0:
-           /*<<format.ml:409:19>>*/ return break_same_line(state, fits);
+           /*<<format.ml:418:19>>*/ return break_same_line(state, fits);
          case 1:
-           /*<<format.ml:408:19>>*/ return break_new_line
+           /*<<format.ml:417:19>>*/ return break_new_line
                   (state, breaks, width$1);
          case 2:
-           /*<<format.ml:406:20>>*/ return break_new_line
+           /*<<format.ml:415:20>>*/ return break_new_line
                   (state, breaks, width$1);
          case 3:
           return state[9] < (size$0 + caml_ml_string_length(before) | 0)
@@ -27177,239 +26407,239 @@
                       ? break_new_line(state, breaks, width$1)
                       : break_same_line(state, fits);
          default:
-           /*<<format.ml:407:19>>*/ return break_same_line(state, fits);
+           /*<<format.ml:416:19>>*/ return break_same_line(state, fits);
        }
-      case 2:
-        /*<<format.ml:359:16>>*/ var
+      case 3:
+        /*<<format.ml:368:16>>*/ var
         off$0 = param[2],
         n = param[1],
         insertion_point = state[6] - state[9] | 0,
-         /*<<format.ml:359:16>>*/ match$8 =
-           /*<<format.ml:359:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
-       if(! match$8)  /*<<format.ml:360:14>>*/ return;
-        /*<<format.ml:362:6>>*/ var
+         /*<<format.ml:368:16>>*/ match$8 =
+           /*<<format.ml:368:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
+       if(! match$8)  /*<<format.ml:369:14>>*/ return;
+        /*<<format.ml:371:6>>*/ var
         tabs$0 = match$8[1][1],
-         /*<<format.ml:362:6>>*/ match$9 = tabs$0[1];
+         /*<<format.ml:371:6>>*/ match$9 = tabs$0[1];
        if(match$9){
         var first = match$9[1], param$0 = tabs$0[1];
-         /*<<format.ml:366:25>>*/ for(;;){
+         /*<<format.ml:375:25>>*/ for(;;){
          if(param$0){
           var tail = param$0[2], head = param$0[1];
           if(insertion_point > head){param$0 = tail; continue;}
-          var _a9_ = head;
+          var _a__ = head;
          }
          else
-          var _a9_ = first;
-         var tab = _a9_;
+          var _a__ = first;
+         var tab = _a__;
          break;
         }
        }
        else
         var tab = insertion_point;
        var offset = tab - insertion_point | 0;
-        /*<<format.ml:372:6>>*/ return 0 <= offset
+        /*<<format.ml:381:6>>*/ return 0 <= offset
                ? break_same_line(state, [0, cst$0, offset + n | 0, cst])
                : break_new_line
                  (state, [0, cst$2, tab + off$0 | 0, cst$1], state[6]);
-      case 3:
+      case 4:
        var
         ty = param[2],
         off$1 = param[1],
         insertion_point$0 = state[6] - state[9] | 0;
        if(state[8] < insertion_point$0){
-         /*<<format.ml:295:8>>*/  /*<<format.ml:295:8>>*/ var
+         /*<<format.ml:304:8>>*/  /*<<format.ml:304:8>>*/ var
          match =
-            /*<<format.ml:295:8>>*/ caml_call1(Stdlib_Stack[8], state[2]);
+            /*<<format.ml:304:8>>*/ caml_call1(Stdlib_Stack[8], state[2]);
         if(match){
          var match$0 = match[1], width = match$0[2], box_type = match$0[1];
          if(state[9] < width && 3 >= box_type - 1 >>> 0)
-           /*<<format.ml:281:29>>*/ break_new_line(state, _a_, width);
+           /*<<format.ml:290:29>>*/ break_new_line(state, _a_, width);
         }
         else
-          /*<<format.ml:296:12>>*/ pp_output_newline(state);
+          /*<<format.ml:305:12>>*/ pp_output_newline(state);
        }
-        /*<<format.ml:331:4>>*/ var
+        /*<<format.ml:340:4>>*/ var
         width$2 = state[9] - off$1 | 0,
-         /*<<format.ml:331:4>>*/ box_type$1 =
+         /*<<format.ml:340:4>>*/ box_type$1 =
           1 === ty ? 1 : state[9] < size$0 ? ty : 5;
-        /*<<format.ml:336:4>>*/ return  /*<<format.ml:336:4>>*/ caml_call2
+        /*<<format.ml:345:4>>*/ return  /*<<format.ml:345:4>>*/ caml_call2
                (Stdlib_Stack[3], [0, box_type$1, width$2], state[2]);
-      case 4:
+      case 5:
        var tbox = param[1];
-        /*<<format.ml:342:4>>*/ return  /*<<format.ml:342:4>>*/ caml_call2
+        /*<<format.ml:351:4>>*/ return  /*<<format.ml:351:4>>*/ caml_call2
                (Stdlib_Stack[3], tbox, state[3]);
       default:
-        /*<<format.ml:414:18>>*/ var
+        /*<<format.ml:423:18>>*/ var
         tag_name$0 = param[1],
-         /*<<format.ml:414:18>>*/ marker$0 =
-           /*<<format.ml:414:18>>*/ caml_call1(state[24], tag_name$0);
-        /*<<format.ml:415:5>>*/ pp_output_string(state, marker$0);
+         /*<<format.ml:423:18>>*/ marker$0 =
+           /*<<format.ml:423:18>>*/ caml_call1(state[24], tag_name$0);
+        /*<<format.ml:424:5>>*/ pp_output_string(state, marker$0);
        return caml_call2(Stdlib_Stack[3], tag_name$0, state[5]);
     }
    }
    function advance_left(state){
-     /*<<format.ml:431:2>>*/ for(;;){
-      /*<<format.ml:431:8>>*/  /*<<format.ml:431:8>>*/ var
-      match =  /*<<format.ml:431:8>>*/ caml_call1(Stdlib_Queue[9], state[28]);
-     if(! match)  /*<<format.ml:432:12>>*/ return 0;
-      /*<<format.ml:435:7>>*/ var
+     /*<<format.ml:440:2>>*/ for(;;){
+      /*<<format.ml:440:8>>*/  /*<<format.ml:440:8>>*/ var
+      match =  /*<<format.ml:440:8>>*/ caml_call1(Stdlib_Queue[9], state[28]);
+     if(! match)  /*<<format.ml:441:12>>*/ return 0;
+      /*<<format.ml:444:7>>*/ var
       match$0 = match[1],
       size = match$0[1],
       length = match$0[3],
       token = match$0[2],
       pending_count = state[13] - state[12] | 0,
-      _a6_ = 0 <= size ? 1 : 0,
-       /*<<format.ml:435:7>>*/ _a7_ =
-        _a6_ || (state[9] <= pending_count ? 1 : 0);
-     if(! _a7_)  /*<<format.ml:435:7>>*/ return _a7_;
-      /*<<format.ml:436:6>>*/  /*<<format.ml:436:6>>*/ caml_call1
+      _a7_ = 0 <= size ? 1 : 0,
+       /*<<format.ml:444:7>>*/ _a8_ =
+        _a7_ || (state[9] <= pending_count ? 1 : 0);
+     if(! _a8_)  /*<<format.ml:444:7>>*/ return _a8_;
+      /*<<format.ml:445:6>>*/  /*<<format.ml:445:6>>*/ caml_call1
       (Stdlib_Queue[5], state[28]);
-      /*<<format.ml:437:20>>*/  /*<<format.ml:437:20>>*/ var
+      /*<<format.ml:446:20>>*/  /*<<format.ml:446:20>>*/ var
       size$0 = 0 <= size ? size : pp_infinity;
-      /*<<format.ml:438:6>>*/ format_pp_token(state, size$0, token);
+      /*<<format.ml:447:6>>*/ format_pp_token(state, size$0, token);
      state[12] = length + state[12] | 0;
     }
-    /*<<format.ml:441:7>>*/ }
+    /*<<format.ml:450:7>>*/ }
    function enqueue_advance(state, tok){
-     /*<<format.ml:445:32>>*/ pp_enqueue(state, tok);
-     /*<<format.ml:445:32>>*/ return advance_left(state);
-    /*<<format.ml:445:72>>*/ }
+     /*<<format.ml:454:32>>*/ pp_enqueue(state, tok);
+     /*<<format.ml:454:32>>*/ return advance_left(state);
+    /*<<format.ml:454:72>>*/ }
    function enqueue_string_as(state, size, s){
-     /*<<format.ml:450:2>>*/ return enqueue_advance
+     /*<<format.ml:459:2>>*/ return enqueue_advance
             (state, [0, size, [0, s], size]);
-    /*<<format.ml:450:78>>*/ }
+    /*<<format.ml:459:78>>*/ }
    function initialize_scan_stack(stack){
-     /*<<format.ml:462:2>>*/  /*<<format.ml:462:2>>*/ caml_call1
+     /*<<format.ml:475:2>>*/  /*<<format.ml:475:2>>*/ caml_call1
      (Stdlib_Stack[9], stack);
-     /*<<format.ml:463:19>>*/  /*<<format.ml:463:19>>*/ var
+     /*<<format.ml:476:19>>*/  /*<<format.ml:476:19>>*/ var
      queue_elem = [0, unknown, _b_, 0];
-     /*<<format.ml:464:2>>*/ return  /*<<format.ml:464:2>>*/ caml_call2
+     /*<<format.ml:477:2>>*/ return  /*<<format.ml:477:2>>*/ caml_call2
             (Stdlib_Stack[3], [0, -1, queue_elem], stack);
-    /*<<format.ml:464:50>>*/ }
+    /*<<format.ml:477:50>>*/ }
    function set_size(state, ty){
-     /*<<format.ml:476:2>>*/  /*<<format.ml:476:8>>*/ var
-     match =  /*<<format.ml:476:8>>*/ caml_call1(Stdlib_Stack[8], state[1]);
-    if(! match)  /*<<format.ml:477:12>>*/ return;
-     /*<<format.ml:479:4>>*/ var
+     /*<<format.ml:489:2>>*/  /*<<format.ml:489:8>>*/ var
+     match =  /*<<format.ml:489:8>>*/ caml_call1(Stdlib_Stack[8], state[1]);
+    if(! match)  /*<<format.ml:490:12>>*/ return;
+     /*<<format.ml:492:4>>*/ var
      match$0 = match[1],
      queue_elem = match$0[2],
      left_total = match$0[1],
-      /*<<format.ml:479:4>>*/ size = queue_elem[1];
+      /*<<format.ml:492:4>>*/ size = queue_elem[1];
     if(left_total < state[12]) return initialize_scan_stack(state[1]);
-    var _a5_ = queue_elem[2];
-    if(typeof _a5_ !== "number")
-     switch(_a5_[0]){
-       case 3:
+    var _a6_ = queue_elem[2];
+    if(typeof _a6_ !== "number")
+     switch(_a6_[0]){
+       case 4:
         if(1 - ty){
          var x$0 = state[13] + size | 0;
          queue_elem[1] = x$0;
-          /*<<format.ml:493:10>>*/  /*<<format.ml:493:10>>*/ caml_call1
+          /*<<format.ml:506:10>>*/  /*<<format.ml:506:10>>*/ caml_call1
           (Stdlib_Stack[5], state[1]);
         }
-         /*<<format.ml:493:10>>*/ return;
-       case 1:
+         /*<<format.ml:506:10>>*/ return;
        case 2:
+       case 3:
         if(ty){
          var x = state[13] + size | 0;
          queue_elem[1] = x;
-          /*<<format.ml:488:10>>*/  /*<<format.ml:488:10>>*/ caml_call1
+          /*<<format.ml:501:10>>*/  /*<<format.ml:501:10>>*/ caml_call1
           (Stdlib_Stack[5], state[1]);
         }
-         /*<<format.ml:488:10>>*/ return;
+         /*<<format.ml:501:10>>*/ return;
      }
-    /*<<format.ml:497:10>>*/ }
+    /*<<format.ml:510:10>>*/ }
    function scan_push(state, b, token){
-     /*<<format.ml:503:2>>*/ pp_enqueue(state, token);
-    if(b)  /*<<format.ml:504:12>>*/ set_size(state, 1);
-     /*<<format.ml:505:13>>*/  /*<<format.ml:505:13>>*/ var
+     /*<<format.ml:516:2>>*/ pp_enqueue(state, token);
+    if(b)  /*<<format.ml:517:12>>*/ set_size(state, 1);
+     /*<<format.ml:518:13>>*/  /*<<format.ml:518:13>>*/ var
      elem = [0, state[13], token];
-     /*<<format.ml:506:2>>*/ return  /*<<format.ml:506:2>>*/ caml_call2
+     /*<<format.ml:519:2>>*/ return  /*<<format.ml:519:2>>*/ caml_call2
             (Stdlib_Stack[3], elem, state[1]);
-    /*<<format.ml:506:37>>*/ }
+    /*<<format.ml:519:37>>*/ }
    function pp_open_box_gen(state, indent, br_ty){
-     /*<<format.ml:513:2>>*/ state[14] = state[14] + 1 | 0;
+     /*<<format.ml:526:2>>*/ state[14] = state[14] + 1 | 0;
     if(state[14] < state[15]){
-      /*<<format.ml:516:15>>*/ var
+      /*<<format.ml:529:15>>*/ var
       size = - state[13] | 0,
-       /*<<format.ml:516:15>>*/ elem = [0, size, [3, indent, br_ty], 0];
-      /*<<format.ml:517:4>>*/ return scan_push(state, 0, elem);
+       /*<<format.ml:529:15>>*/ elem = [0, size, [4, indent, br_ty], 0];
+      /*<<format.ml:530:4>>*/ return scan_push(state, 0, elem);
     }
-    var _a4_ = state[14] === state[15] ? 1 : 0;
-    if(! _a4_) return _a4_;
+    var _a5_ = state[14] === state[15] ? 1 : 0;
+    if(! _a5_) return _a5_;
     var s = state[16], x = caml_ml_string_length(s);
-     /*<<format.ml:454:2>>*/ return enqueue_string_as(state, x, s);
-    /*<<format.ml:519:45>>*/ }
+     /*<<format.ml:467:2>>*/ return enqueue_string_as(state, x, s);
+    /*<<format.ml:532:45>>*/ }
    function pp_close_box(state, param){
-     /*<<format.ml:527:2>>*/ var _a2_ = 1 < state[14] ? 1 : 0;
-    if(_a2_){
+     /*<<format.ml:540:2>>*/ var _a3_ = 1 < state[14] ? 1 : 0;
+    if(_a3_){
      if(state[14] < state[15]){
-       /*<<format.ml:531:6>>*/ pp_enqueue(state, [0, zero, 1, 0]);
-       /*<<format.ml:532:6>>*/ set_size(state, 1);
-       /*<<format.ml:532:27>>*/ set_size(state, 0);
+       /*<<format.ml:544:6>>*/ pp_enqueue(state, [0, zero, 1, 0]);
+       /*<<format.ml:545:6>>*/ set_size(state, 1);
+       /*<<format.ml:545:27>>*/ set_size(state, 0);
      }
      state[14] = state[14] - 1 | 0;
-     var _a3_ = 0;
+     var _a4_ = 0;
     }
     else
-     var _a3_ = _a2_;
-    return _a3_;
-    /*<<format.ml:535:5>>*/ }
+     var _a4_ = _a3_;
+    return _a4_;
+    /*<<format.ml:548:5>>*/ }
    function pp_open_stag(state, tag_name){
-     /*<<format.ml:540:2>>*/ if(state[22]){
-      /*<<format.ml:542:4>>*/  /*<<format.ml:542:4>>*/ caml_call2
+     /*<<format.ml:553:2>>*/ if(state[22]){
+      /*<<format.ml:555:4>>*/  /*<<format.ml:555:4>>*/ caml_call2
       (Stdlib_Stack[3], tag_name, state[4]);
-      /*<<format.ml:543:4>>*/  /*<<format.ml:543:4>>*/ caml_call1
+      /*<<format.ml:556:4>>*/  /*<<format.ml:556:4>>*/ caml_call1
       (state[26], tag_name);
     }
-    var _a1_ = state[23];
-    if(! _a1_) return _a1_;
-     /*<<format.ml:546:16>>*/  /*<<format.ml:546:16>>*/ var
-     token = [5, tag_name];
-     /*<<format.ml:547:21>>*/ return pp_enqueue(state, [0, zero, token, 0]);
-    /*<<format.ml:547:60>>*/ }
+    var _a2_ = state[23];
+    if(! _a2_) return _a2_;
+     /*<<format.ml:559:16>>*/  /*<<format.ml:559:16>>*/ var
+     token = [6, tag_name];
+     /*<<format.ml:560:21>>*/ return pp_enqueue(state, [0, zero, token, 0]);
+    /*<<format.ml:560:60>>*/ }
    function pp_close_stag(state, param){
-     /*<<format.ml:552:2>>*/ if(state[23])
-      /*<<format.ml:553:4>>*/ pp_enqueue(state, [0, zero, 5, 0]);
-    var _aZ_ = state[22];
-    if(_aZ_){
-      /*<<format.ml:555:10>>*/  /*<<format.ml:555:10>>*/ var
-      match =  /*<<format.ml:555:10>>*/ caml_call1(Stdlib_Stack[5], state[4]);
+     /*<<format.ml:565:2>>*/ if(state[23])
+      /*<<format.ml:566:4>>*/ pp_enqueue(state, [0, zero, 5, 0]);
+    var _a0_ = state[22];
+    if(_a0_){
+      /*<<format.ml:568:10>>*/  /*<<format.ml:568:10>>*/ var
+      match =  /*<<format.ml:568:10>>*/ caml_call1(Stdlib_Stack[5], state[4]);
      if(match){
       var tag_name = match[1];
-       /*<<format.ml:558:6>>*/ return  /*<<format.ml:558:6>>*/ caml_call1
+       /*<<format.ml:571:6>>*/ return  /*<<format.ml:571:6>>*/ caml_call1
               (state[27], tag_name);
      }
-     var _a0_ = 0;
+     var _a1_ = 0;
     }
     else
-     var _a0_ = _aZ_;
-     /*<<format.ml:556:14>>*/ return _a0_;
-    /*<<format.ml:558:39>>*/ }
+     var _a1_ = _a0_;
+     /*<<format.ml:569:14>>*/ return _a1_;
+    /*<<format.ml:571:39>>*/ }
    function pp_set_print_tags(state, b){
-     /*<<format.ml:560:32>>*/ state[22] = b;
+     /*<<format.ml:573:32>>*/ state[22] = b;
     return 0;
-    /*<<format.ml:560:56>>*/ }
+    /*<<format.ml:573:56>>*/ }
    function pp_set_mark_tags(state, b){
-     /*<<format.ml:561:31>>*/ state[23] = b;
+     /*<<format.ml:574:31>>*/ state[23] = b;
     return 0;
-    /*<<format.ml:561:54>>*/ }
+    /*<<format.ml:574:54>>*/ }
    function pp_get_print_tags(state, param){
-     /*<<format.ml:562:33>>*/ return state[22];
-    /*<<format.ml:562:52>>*/ }
+     /*<<format.ml:575:33>>*/ return state[22];
+    /*<<format.ml:575:52>>*/ }
    function pp_get_mark_tags(state, param){
-     /*<<format.ml:563:32>>*/ return state[23];
-    /*<<format.ml:563:50>>*/ }
+     /*<<format.ml:576:32>>*/ return state[23];
+    /*<<format.ml:576:50>>*/ }
    function pp_set_tags(state, b){
-     /*<<format.ml:565:2>>*/ pp_set_print_tags(state, b);
-     /*<<format.ml:565:2>>*/ return pp_set_mark_tags(state, b);
-    /*<<format.ml:565:53>>*/ }
+     /*<<format.ml:578:2>>*/ pp_set_print_tags(state, b);
+     /*<<format.ml:578:2>>*/ return pp_set_mark_tags(state, b);
+    /*<<format.ml:578:53>>*/ }
    function pp_get_formatter_stag_function(state, param){
-     /*<<format.ml:569:47>>*/ return [0,
+     /*<<format.ml:582:47>>*/ return [0,
             state[24],
             state[25],
             state[26],
             state[27]];
-    /*<<format.ml:574:1>>*/ }
+    /*<<format.ml:587:1>>*/ }
    function pp_set_formatter_stag_function(state, param){
     var pct = param[4], pot = param[3], mct = param[2], mot = param[1];
     state[24] = mot;
@@ -27419,153 +26649,165 @@
     return 0;
    }
    function pp_rinit(state){
-     /*<<format.ml:591:2>>*/ state[12] = 1;
+     /*<<format.ml:604:2>>*/ state[12] = 1;
     state[13] = 1;
-    caml_call1(Stdlib_Queue[11], state[28]);
-     /*<<format.ml:592:2>>*/ initialize_scan_stack(state[1]);
-     /*<<format.ml:593:2>>*/  /*<<format.ml:593:2>>*/ caml_call1
+    caml_call1(Stdlib_Queue[12], state[28]);
+     /*<<format.ml:605:2>>*/ initialize_scan_stack(state[1]);
+     /*<<format.ml:606:2>>*/  /*<<format.ml:606:2>>*/ caml_call1
      (Stdlib_Stack[9], state[2]);
-     /*<<format.ml:594:2>>*/  /*<<format.ml:594:2>>*/ caml_call1
+     /*<<format.ml:607:2>>*/  /*<<format.ml:607:2>>*/ caml_call1
      (Stdlib_Stack[9], state[3]);
-     /*<<format.ml:595:2>>*/  /*<<format.ml:595:2>>*/ caml_call1
+     /*<<format.ml:608:2>>*/  /*<<format.ml:608:2>>*/ caml_call1
      (Stdlib_Stack[9], state[4]);
-     /*<<format.ml:596:2>>*/  /*<<format.ml:596:2>>*/ caml_call1
+     /*<<format.ml:609:2>>*/  /*<<format.ml:609:2>>*/ caml_call1
      (Stdlib_Stack[9], state[5]);
     state[10] = 0;
     state[14] = 0;
     state[9] = state[6];
-     /*<<format.ml:523:28>>*/ return pp_open_box_gen(state, 0, 3);
-    /*<<format.ml:600:23>>*/ }
+     /*<<format.ml:536:28>>*/ return pp_open_box_gen(state, 0, 3);
+    /*<<format.ml:613:23>>*/ }
    function pp_flush_queue(state, end_with_newline){
-     /*<<format.ml:608:2>>*/  /*<<format.ml:603:13>>*/ caml_call2
+     /*<<format.ml:621:2>>*/  /*<<format.ml:616:13>>*/ caml_call2
      (Stdlib_Stack[13],
       function(param){
-        /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0);
-       /*<<format.ml:603:45>>*/ },
+        /*<<format.ml:616:23>>*/ return pp_close_stag(state, 0);
+       /*<<format.ml:616:45>>*/ },
       state[4]);
-     /*<<format.ml:610:4>>*/ for(;;){
+     /*<<format.ml:623:4>>*/ for(;;){
      if(1 >= state[14]){
       state[13] = pp_infinity;
-       /*<<format.ml:613:2>>*/ advance_left(state);
-      if(end_with_newline)  /*<<format.ml:614:27>>*/ pp_output_newline(state);
-       /*<<format.ml:614:27>>*/ return pp_rinit(state);
+       /*<<format.ml:626:2>>*/ advance_left(state);
+      if(end_with_newline)  /*<<format.ml:627:27>>*/ pp_output_newline(state);
+       /*<<format.ml:627:27>>*/ return pp_rinit(state);
      }
-      /*<<format.ml:610:4>>*/ pp_close_box(state, 0);
+      /*<<format.ml:623:4>>*/ pp_close_box(state, 0);
     }
-    /*<<format.ml:615:16>>*/ }
+    /*<<format.ml:628:16>>*/ }
    function pp_print_as_size(state, size, s){
-     /*<<format.ml:625:2>>*/ var _aY_ = state[14] < state[15] ? 1 : 0;
-    return _aY_ ? enqueue_string_as(state, size, s) : _aY_;
-    /*<<format.ml:626:37>>*/ }
+     /*<<format.ml:638:2>>*/ var _aZ_ = state[14] < state[15] ? 1 : 0;
+    return _aZ_ ? enqueue_string_as(state, size, s) : _aZ_;
+    /*<<format.ml:639:37>>*/ }
    function pp_print_as(state, isize, s){
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s);
-    /*<<format.ml:630:46>>*/ }
+     /*<<format.ml:643:2>>*/ return pp_print_as_size(state, isize, s);
+    /*<<format.ml:643:46>>*/ }
    function pp_print_string(state, s){
-     /*<<format.ml:634:2>>*/ var isize = caml_ml_string_length(s);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s);
-    /*<<format.ml:634:39>>*/ }
+     /*<<format.ml:647:2>>*/ var isize = caml_ml_string_length(s);
+     /*<<format.ml:643:2>>*/ return pp_print_as_size(state, isize, s);
+    /*<<format.ml:647:39>>*/ }
+   function pp_print_substring_as(pos, len, state, size, source){
+     /*<<format.ml:650:2>>*/ var _aY_ = state[14] < state[15] ? 1 : 0;
+    if(! _aY_) return _aY_;
+     /*<<format.ml:463:27>>*/  /*<<format.ml:463:27>>*/ var
+     token = [1, source, pos, len];
+     /*<<format.ml:464:24>>*/ return enqueue_advance
+            (state, [0, size, token, size]);
+    /*<<format.ml:651:64>>*/ }
+   function pp_print_substring(pos, len, state, s){
+     /*<<format.ml:654:2>>*/ return pp_print_substring_as
+            (pos, len, state, len, s);
+    /*<<format.ml:654:45>>*/ }
    function pp_print_bytes(state, s){
-     /*<<format.ml:637:2>>*/ var
-      /*<<format.ml:637:37>>*/ s$0 =
-        /*<<format.ml:637:37>>*/ caml_call1(Stdlib_Bytes[6], s),
+     /*<<format.ml:657:2>>*/ var
+      /*<<format.ml:657:37>>*/ s$0 =
+        /*<<format.ml:657:37>>*/ caml_call1(Stdlib_Bytes[6], s),
      isize = runtime.caml_ml_bytes_length(s);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s$0);
-    /*<<format.ml:637:56>>*/ }
+     /*<<format.ml:643:2>>*/ return pp_print_as_size(state, isize, s$0);
+    /*<<format.ml:657:56>>*/ }
    function pp_print_int(state, i){
-     /*<<format.ml:640:27>>*/ return pp_print_string
-            (state,  /*<<format.ml:640:49>>*/ caml_call1(Stdlib_Int[12], i));
-    /*<<format.ml:640:66>>*/ }
+     /*<<format.ml:660:27>>*/ return pp_print_string
+            (state,  /*<<format.ml:660:49>>*/ caml_call1(Stdlib_Int[12], i));
+    /*<<format.ml:660:66>>*/ }
    function pp_print_float(state, f){
-     /*<<format.ml:643:29>>*/ return pp_print_string
-            (state,  /*<<format.ml:643:51>>*/ caml_call1(Stdlib[35], f));
-    /*<<format.ml:643:70>>*/ }
+     /*<<format.ml:663:29>>*/ return pp_print_string
+            (state,  /*<<format.ml:663:51>>*/ caml_call1(Stdlib[35], f));
+    /*<<format.ml:663:70>>*/ }
    function pp_print_bool(state, b){
-     /*<<format.ml:646:28>>*/ return pp_print_string
-            (state,  /*<<format.ml:646:50>>*/ caml_call1(Stdlib[30], b));
-    /*<<format.ml:646:68>>*/ }
+     /*<<format.ml:666:28>>*/ return pp_print_string
+            (state,  /*<<format.ml:666:50>>*/ caml_call1(Stdlib[30], b));
+    /*<<format.ml:666:68>>*/ }
    function pp_print_char(state, c){
-     /*<<format.ml:650:2>>*/  /*<<format.ml:650:22>>*/ var
-     s =  /*<<format.ml:650:22>>*/ caml_call2(Stdlib_String[1], 1, c);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, 1, s);
-    /*<<format.ml:650:39>>*/ }
-   function pp_print_nothing(state, param){ /*<<format.ml:652:33>>*/ return 0;
-    /*<<format.ml:652:35>>*/ }
+     /*<<format.ml:670:2>>*/  /*<<format.ml:670:22>>*/ var
+     s =  /*<<format.ml:670:22>>*/ caml_call2(Stdlib_String[1], 1, c);
+     /*<<format.ml:643:2>>*/ return pp_print_as_size(state, 1, s);
+    /*<<format.ml:670:39>>*/ }
+   function pp_print_nothing(state, param){ /*<<format.ml:672:33>>*/ return 0;
+    /*<<format.ml:672:35>>*/ }
    function pp_open_hbox(state, param){
-     /*<<format.ml:656:28>>*/ return pp_open_box_gen(state, 0, 0);
-    /*<<format.ml:656:59>>*/ }
+     /*<<format.ml:676:28>>*/ return pp_open_box_gen(state, 0, 0);
+    /*<<format.ml:676:59>>*/ }
    function pp_open_vbox(state, indent){
-     /*<<format.ml:657:32>>*/ return pp_open_box_gen(state, indent, 1);
-    /*<<format.ml:657:68>>*/ }
+     /*<<format.ml:677:32>>*/ return pp_open_box_gen(state, indent, 1);
+    /*<<format.ml:677:68>>*/ }
    function pp_open_hvbox(state, indent){
-     /*<<format.ml:659:33>>*/ return pp_open_box_gen(state, indent, 2);
-    /*<<format.ml:659:70>>*/ }
+     /*<<format.ml:679:33>>*/ return pp_open_box_gen(state, indent, 2);
+    /*<<format.ml:679:70>>*/ }
    function pp_open_hovbox(state, indent){
-     /*<<format.ml:660:34>>*/ return pp_open_box_gen(state, indent, 3);
-    /*<<format.ml:660:72>>*/ }
+     /*<<format.ml:680:34>>*/ return pp_open_box_gen(state, indent, 3);
+    /*<<format.ml:680:72>>*/ }
    function pp_open_box(state, indent){
-     /*<<format.ml:661:31>>*/ return pp_open_box_gen(state, indent, 4);
-    /*<<format.ml:661:66>>*/ }
+     /*<<format.ml:681:31>>*/ return pp_open_box_gen(state, indent, 4);
+    /*<<format.ml:681:66>>*/ }
    function pp_print_newline(state, param){
-     /*<<format.ml:673:2>>*/ pp_flush_queue(state, 1);
-     /*<<format.ml:673:2>>*/ return  /*<<format.ml:673:2>>*/ caml_call1
+     /*<<format.ml:693:2>>*/ pp_flush_queue(state, 1);
+     /*<<format.ml:693:2>>*/ return  /*<<format.ml:693:2>>*/ caml_call1
             (state[18], 0);
-    /*<<format.ml:673:68>>*/ }
+    /*<<format.ml:693:68>>*/ }
    function pp_print_flush(state, param){
-     /*<<format.ml:675:2>>*/ pp_flush_queue(state, 0);
-     /*<<format.ml:675:2>>*/ return  /*<<format.ml:675:2>>*/ caml_call1
+     /*<<format.ml:695:2>>*/ pp_flush_queue(state, 0);
+     /*<<format.ml:695:2>>*/ return  /*<<format.ml:695:2>>*/ caml_call1
             (state[18], 0);
-    /*<<format.ml:675:69>>*/ }
+    /*<<format.ml:695:69>>*/ }
    function pp_force_newline(state, param){
-     /*<<format.ml:680:2>>*/ var _aX_ = state[14] < state[15] ? 1 : 0;
+     /*<<format.ml:700:2>>*/ var _aX_ = state[14] < state[15] ? 1 : 0;
     return _aX_ ? enqueue_advance(state, [0, zero, 3, 0]) : _aX_;
-    /*<<format.ml:681:78>>*/ }
+    /*<<format.ml:701:78>>*/ }
    function pp_print_if_newline(state, param){
-     /*<<format.ml:686:2>>*/ var _aW_ = state[14] < state[15] ? 1 : 0;
+     /*<<format.ml:706:2>>*/ var _aW_ = state[14] < state[15] ? 1 : 0;
     return _aW_ ? enqueue_advance(state, [0, zero, 4, 0]) : _aW_;
-    /*<<format.ml:688:61>>*/ }
+    /*<<format.ml:708:61>>*/ }
    function pp_print_custom_break(state, fits, breaks){
-     /*<<format.ml:694:2>>*/ var
+     /*<<format.ml:714:2>>*/ var
      after = fits[3],
      width = fits[2],
      before = fits[1],
      _aV_ = state[14] < state[15] ? 1 : 0;
     if(! _aV_) return _aV_;
-     /*<<format.ml:697:25>>*/ var
+     /*<<format.ml:717:25>>*/ var
      size = - state[13] | 0,
-      /*<<format.ml:697:25>>*/ token = [1, fits, breaks],
+      /*<<format.ml:717:25>>*/ token = [2, fits, breaks],
      length =
        (caml_ml_string_length(before) + width | 0)
-       +  /*<<format.ml:698:4>>*/ caml_ml_string_length(after)
+       +  /*<<format.ml:718:4>>*/ caml_ml_string_length(after)
        | 0,
-      /*<<format.ml:699:15>>*/ elem = [0, size, token, length];
-     /*<<format.ml:700:4>>*/ return scan_push(state, 1, elem);
-    /*<<format.ml:700:29>>*/ }
+      /*<<format.ml:719:15>>*/ elem = [0, size, token, length];
+     /*<<format.ml:720:4>>*/ return scan_push(state, 1, elem);
+    /*<<format.ml:720:29>>*/ }
    function pp_print_break(state, width, offset){
-     /*<<format.ml:707:2>>*/ return pp_print_custom_break
+     /*<<format.ml:727:2>>*/ return pp_print_custom_break
             (state, [0, cst$6, width, cst$5], [0, cst$4, offset, cst$3]);
-    /*<<format.ml:708:50>>*/ }
+    /*<<format.ml:728:50>>*/ }
    function pp_print_space(state, param){
-     /*<<format.ml:716:30>>*/ return pp_print_break(state, 1, 0);
-    /*<<format.ml:716:54>>*/ }
+     /*<<format.ml:736:30>>*/ return pp_print_break(state, 1, 0);
+    /*<<format.ml:736:54>>*/ }
    function pp_print_cut(state, param){
-     /*<<format.ml:717:28>>*/ return pp_print_break(state, 0, 0);
-    /*<<format.ml:717:52>>*/ }
+     /*<<format.ml:737:28>>*/ return pp_print_break(state, 0, 0);
+    /*<<format.ml:737:52>>*/ }
    function pp_open_tbox(state, param){
-     /*<<format.ml:722:2>>*/ state[14] = state[14] + 1 | 0;
+     /*<<format.ml:742:2>>*/ state[14] = state[14] + 1 | 0;
     var _aU_ = state[14] < state[15] ? 1 : 0;
     if(! _aU_) return _aU_;
-     /*<<format.ml:725:15>>*/  /*<<format.ml:725:15>>*/ var
-     elem = [0, zero, [4, [0, [0, 0]]], 0];
-     /*<<format.ml:726:4>>*/ return enqueue_advance(state, elem);
-    /*<<format.ml:726:30>>*/ }
+     /*<<format.ml:745:15>>*/  /*<<format.ml:745:15>>*/ var
+     elem = [0, zero, [5, [0, [0, 0]]], 0];
+     /*<<format.ml:746:4>>*/ return enqueue_advance(state, elem);
+    /*<<format.ml:746:30>>*/ }
    function pp_close_tbox(state, param){
-     /*<<format.ml:731:2>>*/ var _aR_ = 1 < state[14] ? 1 : 0;
+     /*<<format.ml:751:2>>*/ var _aR_ = 1 < state[14] ? 1 : 0;
     if(_aR_){
      var _aS_ = state[14] < state[15] ? 1 : 0;
      if(_aS_){
-       /*<<format.ml:734:16>>*/  /*<<format.ml:734:16>>*/ var
+       /*<<format.ml:754:16>>*/  /*<<format.ml:754:16>>*/ var
        elem = [0, zero, 2, 0];
-       /*<<format.ml:735:5>>*/ enqueue_advance(state, elem);
+       /*<<format.ml:755:5>>*/ enqueue_advance(state, elem);
       state[14] = state[14] - 1 | 0;
       var _aT_ = 0;
      }
@@ -27575,126 +26817,126 @@
     else
      var _aT_ = _aR_;
     return _aT_;
-    /*<<format.ml:737:5>>*/ }
+    /*<<format.ml:757:5>>*/ }
    function pp_print_tbreak(state, width, offset){
-     /*<<format.ml:742:2>>*/ var _aQ_ = state[14] < state[15] ? 1 : 0;
+     /*<<format.ml:762:2>>*/ var _aQ_ = state[14] < state[15] ? 1 : 0;
     if(! _aQ_) return _aQ_;
-     /*<<format.ml:744:15>>*/ var
+     /*<<format.ml:764:15>>*/ var
      size = - state[13] | 0,
-      /*<<format.ml:744:15>>*/ elem = [0, size, [2, width, offset], width];
-     /*<<format.ml:745:4>>*/ return scan_push(state, 1, elem);
-    /*<<format.ml:745:29>>*/ }
+      /*<<format.ml:764:15>>*/ elem = [0, size, [3, width, offset], width];
+     /*<<format.ml:765:4>>*/ return scan_push(state, 1, elem);
+    /*<<format.ml:765:29>>*/ }
    function pp_print_tab(state, param){
-     /*<<format.ml:748:28>>*/ return pp_print_tbreak(state, 0, 0);
-    /*<<format.ml:748:53>>*/ }
+     /*<<format.ml:768:28>>*/ return pp_print_tbreak(state, 0, 0);
+    /*<<format.ml:768:53>>*/ }
    function pp_set_tab(state, param){
-     /*<<format.ml:751:2>>*/ var _aP_ = state[14] < state[15] ? 1 : 0;
+     /*<<format.ml:771:2>>*/ var _aP_ = state[14] < state[15] ? 1 : 0;
     if(! _aP_) return _aP_;
-     /*<<format.ml:752:15>>*/  /*<<format.ml:752:15>>*/ var
+     /*<<format.ml:772:15>>*/  /*<<format.ml:772:15>>*/ var
      elem = [0, zero, 0, 0];
-     /*<<format.ml:753:4>>*/ return enqueue_advance(state, elem);
-    /*<<format.ml:753:30>>*/ }
+     /*<<format.ml:773:4>>*/ return enqueue_advance(state, elem);
+    /*<<format.ml:773:30>>*/ }
    function pp_set_max_boxes(state, n){
-     /*<<format.ml:763:31>>*/ var
+     /*<<format.ml:783:31>>*/ var
      _aN_ = 1 < n ? 1 : 0,
      _aO_ = _aN_ ? (state[15] = n, 0) : _aN_;
     return _aO_;
-    /*<<format.ml:763:68>>*/ }
+    /*<<format.ml:783:68>>*/ }
    function pp_get_max_boxes(state, param){
-     /*<<format.ml:766:32>>*/ return state[15];
-    /*<<format.ml:766:50>>*/ }
+     /*<<format.ml:786:32>>*/ return state[15];
+    /*<<format.ml:786:50>>*/ }
    function pp_over_max_boxes(state, param){
-     /*<<format.ml:768:33>>*/ return state[14] === state[15] ? 1 : 0;
-    /*<<format.ml:768:73>>*/ }
+     /*<<format.ml:788:33>>*/ return state[14] === state[15] ? 1 : 0;
+    /*<<format.ml:788:73>>*/ }
    function pp_set_ellipsis_text(state, s){
-     /*<<format.ml:771:35>>*/ state[16] = s;
+     /*<<format.ml:791:35>>*/ state[16] = s;
     return 0;
-    /*<<format.ml:771:57>>*/ }
+    /*<<format.ml:791:57>>*/ }
    function pp_get_ellipsis_text(state, param){
-     /*<<format.ml:772:36>>*/ return state[16];
-    /*<<format.ml:772:53>>*/ }
+     /*<<format.ml:792:36>>*/ return state[16];
+    /*<<format.ml:792:53>>*/ }
    function pp_limit(n){
-     /*<<format.ml:777:2>>*/ return n < 1000000010 ? n : 1000000009;
-    /*<<format.ml:777:49>>*/ }
+     /*<<format.ml:797:2>>*/ return n < 1000000010 ? n : 1000000009;
+    /*<<format.ml:797:49>>*/ }
    function pp_set_max_indent(state, n$0){
-     /*<<format.ml:793:2>>*/ var _aM_ = 1 < n$0 ? 1 : 0;
+     /*<<format.ml:813:2>>*/ var _aM_ = 1 < n$0 ? 1 : 0;
     if(! _aM_) return _aM_;
     var n$1 = state[6] - n$0 | 0, _aL_ = 1 <= n$1 ? 1 : 0;
     if(! _aL_) return _aL_;
-     /*<<format.ml:783:12>>*/  /*<<format.ml:783:12>>*/ var n = pp_limit(n$1);
+     /*<<format.ml:803:12>>*/  /*<<format.ml:803:12>>*/ var n = pp_limit(n$1);
     state[7] = n;
     state[8] = state[6] - state[7] | 0;
-     /*<<format.ml:786:4>>*/ return pp_rinit(state);
-    /*<<format.ml:794:53>>*/ }
+     /*<<format.ml:806:4>>*/ return pp_rinit(state);
+    /*<<format.ml:814:53>>*/ }
    function pp_get_max_indent(state, param){
-     /*<<format.ml:797:33>>*/ return state[8];
-    /*<<format.ml:797:52>>*/ }
+     /*<<format.ml:817:33>>*/ return state[8];
+    /*<<format.ml:817:52>>*/ }
    function pp_set_margin(state, n){
-     /*<<format.ml:800:2>>*/ var _aJ_ = 1 <= n ? 1 : 0;
+     /*<<format.ml:820:2>>*/ var _aJ_ = 1 <= n ? 1 : 0;
     if(! _aJ_) return _aJ_;
-     /*<<format.ml:801:12>>*/  /*<<format.ml:801:12>>*/ var n$0 = pp_limit(n);
+     /*<<format.ml:821:12>>*/  /*<<format.ml:821:12>>*/ var n$0 = pp_limit(n);
     state[6] = n$0;
     if(state[8] <= state[6])
      var new_max_indent = state[8];
     else
-      /*<<format.ml:810:15>>*/ var
-       /*<<format.ml:810:15>>*/ _aK_ =
-         /*<<format.ml:810:15>>*/ caml_call2
+      /*<<format.ml:830:15>>*/ var
+       /*<<format.ml:830:15>>*/ _aK_ =
+         /*<<format.ml:830:15>>*/ caml_call2
          (Stdlib_Int[11], state[6] - state[7] | 0, state[6] / 2 | 0),
       new_max_indent =
-         /*<<format.ml:810:7>>*/ caml_call2(Stdlib_Int[11], _aK_, 1);
-     /*<<format.ml:813:4>>*/ return pp_set_max_indent(state, new_max_indent);
-    /*<<format.ml:813:42>>*/ }
+         /*<<format.ml:830:7>>*/ caml_call2(Stdlib_Int[11], _aK_, 1);
+     /*<<format.ml:833:4>>*/ return pp_set_max_indent(state, new_max_indent);
+    /*<<format.ml:833:42>>*/ }
    function validate_geometry(param){
     var margin = param[2], max_indent = param[1];
-     /*<<format.ml:820:2>>*/ return 2 <= max_indent
+     /*<<format.ml:840:2>>*/ return 2 <= max_indent
             ? margin <= max_indent ? _c_ : 1000000010 <= margin ? _d_ : _e_
             : _f_;
    }
    function check_geometry(geometry){
-     /*<<format.ml:829:2>>*/ return 0 === validate_geometry(geometry)[0]
+     /*<<format.ml:849:2>>*/ return 0 === validate_geometry(geometry)[0]
             ? 1
             : 0;
-    /*<<format.ml:831:20>>*/ }
+    /*<<format.ml:851:20>>*/ }
    function pp_get_margin(state, param){
-     /*<<format.ml:833:29>>*/ return state[6];
-    /*<<format.ml:833:44>>*/ }
+     /*<<format.ml:853:29>>*/ return state[6];
+    /*<<format.ml:853:44>>*/ }
    function pp_set_full_geometry(state, param){
     var margin = param[2], max_indent = param[1];
-     /*<<format.ml:836:2>>*/ pp_set_margin(state, margin);
-     /*<<format.ml:837:2>>*/ pp_set_max_indent(state, max_indent);
-     /*<<format.ml:837:2>>*/ return 0;
+     /*<<format.ml:856:2>>*/ pp_set_margin(state, margin);
+     /*<<format.ml:857:2>>*/ pp_set_max_indent(state, max_indent);
+     /*<<format.ml:857:2>>*/ return 0;
    }
    function pp_set_geometry(state, max_indent, margin){
-     /*<<format.ml:841:2>>*/ var
-      /*<<format.ml:841:17>>*/ geometry = [0, max_indent, margin],
-      /*<<format.ml:842:8>>*/ match = validate_geometry(geometry);
+     /*<<format.ml:861:2>>*/ var
+      /*<<format.ml:861:17>>*/ geometry = [0, max_indent, margin],
+      /*<<format.ml:862:8>>*/ match = validate_geometry(geometry);
     if(0 === match[0])
-      /*<<format.ml:846:4>>*/ return pp_set_full_geometry(state, geometry);
-     /*<<format.ml:844:28>>*/ var
+      /*<<format.ml:866:4>>*/ return pp_set_full_geometry(state, geometry);
+     /*<<format.ml:864:28>>*/ var
      msg = match[1],
-      /*<<format.ml:844:28>>*/ _aI_ =
-        /*<<format.ml:844:28>>*/ caml_call2
+      /*<<format.ml:864:28>>*/ _aI_ =
+        /*<<format.ml:864:28>>*/ caml_call2
         (Stdlib[28], cst_Format_pp_set_geometry, msg);
-     /*<<format.ml:844:4>>*/ throw  /*<<format.ml:844:4>>*/ caml_maybe_attach_backtrace
+     /*<<format.ml:864:4>>*/ throw  /*<<format.ml:864:4>>*/ caml_maybe_attach_backtrace
            ([0, Stdlib[6], _aI_], 1);
-    /*<<format.ml:846:39>>*/ }
+    /*<<format.ml:866:39>>*/ }
    function pp_safe_set_geometry(state, max_indent, margin){
-     /*<<format.ml:849:2>>*/  /*<<format.ml:849:17>>*/ var
+     /*<<format.ml:869:2>>*/  /*<<format.ml:869:17>>*/ var
      geometry = [0, max_indent, margin];
     return 0 === validate_geometry(geometry)[0]
             ? pp_set_full_geometry(state, geometry)
             : 0;
-    /*<<format.ml:854:39>>*/ }
+    /*<<format.ml:874:39>>*/ }
    function pp_get_geometry(state, param){
-     /*<<format.ml:857:2>>*/ return [0, state[8], state[6]];
-    /*<<format.ml:857:78>>*/ }
+     /*<<format.ml:877:2>>*/ return [0, state[8], state[6]];
+    /*<<format.ml:877:78>>*/ }
    function pp_update_geometry(state, update){
-     /*<<format.ml:860:2>>*/  /*<<format.ml:860:17>>*/ var
+     /*<<format.ml:880:2>>*/  /*<<format.ml:880:17>>*/ var
      geometry = pp_get_geometry(state, 0);
-     /*<<format.ml:861:29>>*/ return pp_set_full_geometry
-            (state,  /*<<format.ml:861:29>>*/ caml_call1(update, geometry));
-    /*<<format.ml:861:46>>*/ }
+     /*<<format.ml:881:29>>*/ return pp_set_full_geometry
+            (state,  /*<<format.ml:881:29>>*/ caml_call1(update, geometry));
+    /*<<format.ml:881:46>>*/ }
    function pp_set_formatter_out_functions(state, param){
     var j = param[5], i = param[4], h = param[3], g = param[2], f = param[1];
     state[17] = f;
@@ -27705,103 +26947,103 @@
     return 0;
    }
    function pp_get_formatter_out_functions(state, param){
-     /*<<format.ml:877:46>>*/ return [0,
+     /*<<format.ml:897:46>>*/ return [0,
             state[17],
             state[18],
             state[19],
             state[20],
             state[21]];
-    /*<<format.ml:883:1>>*/ }
+    /*<<format.ml:903:1>>*/ }
    function pp_set_formatter_output_functi(state, f, g){
-     /*<<format.ml:888:2>>*/ state[17] = f;
+     /*<<format.ml:908:2>>*/ state[17] = f;
     state[18] = g;
     return 0;
-    /*<<format.ml:888:51>>*/ }
+    /*<<format.ml:908:51>>*/ }
    function pp_get_formatter_output_functi(state, param){
-     /*<<format.ml:891:2>>*/ return [0, state[17], state[18]];
-    /*<<format.ml:891:43>>*/ }
+     /*<<format.ml:911:2>>*/ return [0, state[17], state[18]];
+    /*<<format.ml:911:43>>*/ }
    function display_newline(state, param){
-     /*<<format.ml:895:31>>*/ return  /*<<format.ml:895:31>>*/ caml_call3
+     /*<<format.ml:915:31>>*/ return  /*<<format.ml:915:31>>*/ caml_call3
             (state[17], cst$7, 0, 1);
-    /*<<format.ml:895:60>>*/ }
-    /*<<format.ml:898:17>>*/ var
-     /*<<format.ml:898:17>>*/ blank_line =
-       /*<<format.ml:898:17>>*/ caml_call2(Stdlib_String[1], 80, 32),
-    _g_ = [3, 0, 3];
+    /*<<format.ml:915:60>>*/ }
+    /*<<format.ml:918:17>>*/ var
+     /*<<format.ml:918:17>>*/ blank_line =
+       /*<<format.ml:918:17>>*/ caml_call2(Stdlib_String[1], 80, 32),
+    _g_ = [4, 0, 3];
    function display_blanks(state, n){
-     /*<<format.ml:900:2>>*/ var n$0 = n;
-     /*<<format.ml:900:2>>*/ for(;;){
+     /*<<format.ml:920:2>>*/ var n$0 = n;
+     /*<<format.ml:920:2>>*/ for(;;){
      var _aH_ = 0 < n$0 ? 1 : 0;
      if(! _aH_) return _aH_;
      if(80 >= n$0)
-       /*<<format.ml:901:18>>*/ return  /*<<format.ml:901:18>>*/ caml_call3
+       /*<<format.ml:921:18>>*/ return  /*<<format.ml:921:18>>*/ caml_call3
               (state[17], blank_line, 0, n$0);
-      /*<<format.ml:903:4>>*/  /*<<format.ml:903:4>>*/ caml_call3
+      /*<<format.ml:923:4>>*/  /*<<format.ml:923:4>>*/ caml_call3
       (state[17], blank_line, 0, 80);
-      /*<<format.ml:903:4>>*/  /*<<format.ml:903:4>>*/ var n$1 = n$0 - 80 | 0;
+      /*<<format.ml:923:4>>*/  /*<<format.ml:923:4>>*/ var n$1 = n$0 - 80 | 0;
      n$0 = n$1;
     }
-    /*<<format.ml:905:5>>*/ }
+    /*<<format.ml:925:5>>*/ }
    function pp_set_formatter_out_channel(state, oc){
-     /*<<format.ml:914:2>>*/ state[17] =
-      /*<<format.ml:914:25>>*/ caml_call1(Stdlib[69], oc);
+     /*<<format.ml:934:2>>*/ state[17] =
+      /*<<format.ml:934:25>>*/ caml_call1(Stdlib[69], oc);
     state[18] =
      function(param){
-       /*<<format.ml:915:35>>*/ return  /*<<format.ml:915:2>>*/ caml_call1
+       /*<<format.ml:935:35>>*/ return  /*<<format.ml:935:2>>*/ caml_call1
               (Stdlib[63], oc);
-      /*<<format.ml:915:43>>*/ };
+      /*<<format.ml:935:43>>*/ };
     state[19] =
      function(_aG_){ /*<<?>>*/ return display_newline(state, _aG_);};
     state[20] = function(_aF_){ /*<<?>>*/ return display_blanks(state, _aF_);};
     state[21] = function(_aE_){ /*<<?>>*/ return display_blanks(state, _aE_);};
     return 0;
-    /*<<format.ml:918:45>>*/ }
+    /*<<format.ml:938:45>>*/ }
    function default_pp_mark_open_tag(param){
-     /*<<format.ml:926:31>>*/ if(param[1] !== String_tag)
-      /*<<format.ml:928:9>>*/ return cst$10;
-     /*<<format.ml:927:26>>*/ var
+     /*<<format.ml:946:31>>*/ if(param[1] !== String_tag)
+      /*<<format.ml:948:9>>*/ return cst$10;
+     /*<<format.ml:947:26>>*/ var
      s = param[2],
-      /*<<format.ml:927:26>>*/ _aD_ =
-        /*<<format.ml:927:26>>*/ caml_call2(Stdlib[28], s, cst$8);
-     /*<<format.ml:927:26>>*/ return  /*<<format.ml:927:26>>*/ caml_call2
+      /*<<format.ml:947:26>>*/ _aD_ =
+        /*<<format.ml:947:26>>*/ caml_call2(Stdlib[28], s, cst$8);
+     /*<<format.ml:947:26>>*/ return  /*<<format.ml:947:26>>*/ caml_call2
             (Stdlib[28], cst$9, _aD_);
-    /*<<format.ml:928:11>>*/ }
+    /*<<format.ml:948:11>>*/ }
    function default_pp_mark_close_tag(param){
-     /*<<format.ml:929:32>>*/ if(param[1] !== String_tag)
-      /*<<format.ml:931:9>>*/ return cst$13;
-     /*<<format.ml:930:27>>*/ var
+     /*<<format.ml:949:32>>*/ if(param[1] !== String_tag)
+      /*<<format.ml:951:9>>*/ return cst$13;
+     /*<<format.ml:950:27>>*/ var
      s = param[2],
-      /*<<format.ml:930:27>>*/ _aC_ =
-        /*<<format.ml:930:27>>*/ caml_call2(Stdlib[28], s, cst$11);
-     /*<<format.ml:930:27>>*/ return  /*<<format.ml:930:27>>*/ caml_call2
+      /*<<format.ml:950:27>>*/ _aC_ =
+        /*<<format.ml:950:27>>*/ caml_call2(Stdlib[28], s, cst$11);
+     /*<<format.ml:950:27>>*/ return  /*<<format.ml:950:27>>*/ caml_call2
             (Stdlib[28], cst$12, _aC_);
-    /*<<format.ml:931:11>>*/ }
+    /*<<format.ml:951:11>>*/ }
    function default_pp_print_open_tag(_aB_){ /*<<?>>*/ return 0;}
    function default_pp_print_close_tag(_aA_){ /*<<?>>*/ return 0;}
    function pp_make_formatter(f, g, h, i, j){
-     /*<<format.ml:940:17>>*/ var
-      /*<<format.ml:940:17>>*/ pp_queue =
-        /*<<format.ml:940:17>>*/ caml_call1(Stdlib_Queue[2], 0),
-      /*<<format.ml:942:4>>*/ sys_tok = [0, unknown, _g_, 0];
-     /*<<format.ml:943:2>>*/  /*<<format.ml:943:2>>*/ caml_call2
+     /*<<format.ml:960:17>>*/ var
+      /*<<format.ml:960:17>>*/ pp_queue =
+        /*<<format.ml:960:17>>*/ caml_call1(Stdlib_Queue[2], 0),
+      /*<<format.ml:962:4>>*/ sys_tok = [0, unknown, _g_, 0];
+     /*<<format.ml:963:2>>*/  /*<<format.ml:963:2>>*/ caml_call2
      (Stdlib_Queue[3], sys_tok, pp_queue);
-     /*<<format.ml:944:19>>*/  /*<<format.ml:944:19>>*/ var
-     scan_stack =  /*<<format.ml:944:19>>*/ caml_call1(Stdlib_Stack[2], 0);
-     /*<<format.ml:945:2>>*/ initialize_scan_stack(scan_stack);
-     /*<<format.ml:946:2>>*/  /*<<format.ml:946:2>>*/ caml_call2
+     /*<<format.ml:964:19>>*/  /*<<format.ml:964:19>>*/ var
+     scan_stack =  /*<<format.ml:964:19>>*/ caml_call1(Stdlib_Stack[2], 0);
+     /*<<format.ml:965:2>>*/ initialize_scan_stack(scan_stack);
+     /*<<format.ml:966:2>>*/  /*<<format.ml:966:2>>*/ caml_call2
      (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
-     /*<<format.ml:946:2>>*/ var
-      /*<<format.ml:946:2>>*/ pp_margin = 78,
+     /*<<format.ml:966:2>>*/ var
+      /*<<format.ml:966:2>>*/ pp_margin = 78,
      _aw_ = Stdlib[19],
-      /*<<format.ml:954:20>>*/ _ax_ =
-        /*<<format.ml:954:20>>*/ caml_call1(Stdlib_Stack[2], 0),
-      /*<<format.ml:953:19>>*/ _ay_ =
-        /*<<format.ml:953:19>>*/ caml_call1(Stdlib_Stack[2], 0),
-      /*<<format.ml:952:20>>*/ _az_ =
-        /*<<format.ml:952:20>>*/ caml_call1(Stdlib_Stack[2], 0);
-     /*<<format.ml:949:2>>*/ return [0,
+      /*<<format.ml:974:20>>*/ _ax_ =
+        /*<<format.ml:974:20>>*/ caml_call1(Stdlib_Stack[2], 0),
+      /*<<format.ml:973:19>>*/ _ay_ =
+        /*<<format.ml:973:19>>*/ caml_call1(Stdlib_Stack[2], 0),
+      /*<<format.ml:972:20>>*/ _az_ =
+        /*<<format.ml:972:20>>*/ caml_call1(Stdlib_Stack[2], 0);
+     /*<<format.ml:969:2>>*/ return [0,
             scan_stack,
-             /*<<format.ml:951:22>>*/ caml_call1(Stdlib_Stack[2], 0),
+             /*<<format.ml:971:22>>*/ caml_call1(Stdlib_Stack[2], 0),
             _az_,
             _ay_,
             _ax_,
@@ -27830,11 +27072,11 @@
             pp_queue];
    }
    function formatter_of_out_functions(out_funs){
-     /*<<format.ml:983:2>>*/ return pp_make_formatter
+     /*<<format.ml:1003:2>>*/ return pp_make_formatter
             (out_funs[1], out_funs[2], out_funs[3], out_funs[4], out_funs[5]);
-    /*<<format.ml:988:23>>*/ }
+    /*<<format.ml:1008:23>>*/ }
    function make_formatter(output, flush){
-     /*<<format.ml:994:2>>*/  /*<<format.ml:994:12>>*/ var
+     /*<<format.ml:1014:2>>*/  /*<<format.ml:1014:12>>*/ var
      ppf =
        pp_make_formatter
         (output,
@@ -27845,96 +27087,96 @@
     ppf[19] = function(_as_){ /*<<?>>*/ return display_newline(ppf, _as_);};
     ppf[20] = function(_ar_){ /*<<?>>*/ return display_blanks(ppf, _ar_);};
     ppf[21] = function(_aq_){ /*<<?>>*/ return display_blanks(ppf, _aq_);};
-     /*<<format.ml:998:2>>*/ return ppf;
-    /*<<format.ml:998:5>>*/ }
+     /*<<format.ml:1018:2>>*/ return ppf;
+    /*<<format.ml:1018:5>>*/ }
    function formatter_of_out_channel(oc){
-     /*<<format.ml:1003:2>>*/ return make_formatter
-            ( /*<<format.ml:1003:17>>*/ caml_call1(Stdlib[69], oc),
+     /*<<format.ml:1023:2>>*/ return make_formatter
+            ( /*<<format.ml:1023:17>>*/ caml_call1(Stdlib[69], oc),
              function(param){
-               /*<<format.ml:1003:50>>*/ return  /*<<format.ml:1003:2>>*/ caml_call1
+               /*<<format.ml:1023:50>>*/ return  /*<<format.ml:1023:2>>*/ caml_call1
                       (Stdlib[63], oc);
-              /*<<format.ml:1003:58>>*/ });
-    /*<<format.ml:1003:59>>*/ }
+              /*<<format.ml:1023:58>>*/ });
+    /*<<format.ml:1023:59>>*/ }
    function formatter_of_buffer(b){
-     /*<<format.ml:1008:2>>*/ return make_formatter
-            ( /*<<format.ml:1008:17>>*/ caml_call1(Stdlib_Buffer[18], b),
+     /*<<format.ml:1028:2>>*/ return make_formatter
+            ( /*<<format.ml:1028:17>>*/ caml_call1(Stdlib_Buffer[18], b),
              function(_ap_){ /*<<?>>*/ return 0;});
-    /*<<format.ml:1008:48>>*/ }
+    /*<<format.ml:1028:48>>*/ }
    var pp_buffer_size = 512;
    function pp_make_buffer(param){
-     /*<<format.ml:1015:24>>*/ return caml_call1
+     /*<<format.ml:1035:24>>*/ return caml_call1
             (Stdlib_Buffer[1], pp_buffer_size);
-    /*<<format.ml:1015:52>>*/ }
-    /*<<format.ml:1018:13>>*/ var
-     /*<<format.ml:1018:13>>*/ stdbuf = pp_make_buffer(0),
-     /*<<format.ml:1022:20>>*/ std_formatter =
+    /*<<format.ml:1035:52>>*/ }
+    /*<<format.ml:1038:13>>*/ var
+     /*<<format.ml:1038:13>>*/ stdbuf = pp_make_buffer(0),
+     /*<<format.ml:1042:20>>*/ std_formatter =
       formatter_of_out_channel(Stdlib[39]),
-     /*<<format.ml:1023:20>>*/ err_formatter =
+     /*<<format.ml:1043:20>>*/ err_formatter =
       formatter_of_out_channel(Stdlib[40]),
-     /*<<format.ml:1024:20>>*/ str_formatter = formatter_of_buffer(stdbuf),
-     /*<<format.ml:1029:17>>*/ stdbuf_key =
-       /*<<format.ml:1029:17>>*/ caml_call2
-       (Stdlib_Domain[10][1], 0, pp_make_buffer);
-    /*<<format.ml:1030:8>>*/  /*<<format.ml:1030:8>>*/ caml_call2
-    (Stdlib_Domain[10][3], stdbuf_key, stdbuf);
-    /*<<format.ml:1032:24>>*/  /*<<format.ml:1032:24>>*/ var
+     /*<<format.ml:1044:20>>*/ str_formatter = formatter_of_buffer(stdbuf),
+     /*<<format.ml:1049:17>>*/ stdbuf_key =
+       /*<<format.ml:1049:17>>*/ caml_call2
+       (Stdlib_Domain[11][1], 0, pp_make_buffer);
+    /*<<format.ml:1050:8>>*/  /*<<format.ml:1050:8>>*/ caml_call2
+    (Stdlib_Domain[11][3], stdbuf_key, stdbuf);
+    /*<<format.ml:1052:24>>*/  /*<<format.ml:1052:24>>*/ var
     str_formatter_key =
-       /*<<format.ml:1032:24>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+       /*<<format.ml:1052:24>>*/ caml_call2
+       (Stdlib_Domain[11][1],
         0,
         function(param){
-          /*<<format.ml:1033:2>>*/ return formatter_of_buffer
-                 ( /*<<format.ml:1033:22>>*/ caml_call1
-                   (Stdlib_Domain[10][2], stdbuf_key));
-         /*<<format.ml:1033:42>>*/ });
-    /*<<format.ml:1034:8>>*/  /*<<format.ml:1034:8>>*/ caml_call2
-    (Stdlib_Domain[10][3], str_formatter_key, str_formatter);
-    /*<<format.ml:1034:8>>*/ function buffered_out_string(key, str, ofs, len){
-     /*<<format.ml:1037:2>>*/  /*<<format.ml:1037:23>>*/ var
-     _ao_ =  /*<<format.ml:1037:23>>*/ caml_call1(Stdlib_Domain[10][2], key);
-     /*<<format.ml:1037:2>>*/ return  /*<<format.ml:1037:2>>*/ caml_call4
+          /*<<format.ml:1053:2>>*/ return formatter_of_buffer
+                 ( /*<<format.ml:1053:22>>*/ caml_call1
+                   (Stdlib_Domain[11][2], stdbuf_key));
+         /*<<format.ml:1053:42>>*/ });
+    /*<<format.ml:1054:8>>*/  /*<<format.ml:1054:8>>*/ caml_call2
+    (Stdlib_Domain[11][3], str_formatter_key, str_formatter);
+    /*<<format.ml:1054:8>>*/ function buffered_out_string(key, str, ofs, len){
+     /*<<format.ml:1057:2>>*/  /*<<format.ml:1057:23>>*/ var
+     _ao_ =  /*<<format.ml:1057:23>>*/ caml_call1(Stdlib_Domain[11][2], key);
+     /*<<format.ml:1057:2>>*/ return  /*<<format.ml:1057:2>>*/ caml_call4
             (Stdlib_Buffer[18], _ao_, str, ofs, len);
-    /*<<format.ml:1037:55>>*/ }
+    /*<<format.ml:1057:55>>*/ }
    function buffered_out_flush(oc, key, param){
-     /*<<format.ml:1040:2>>*/ var
-      /*<<format.ml:1040:12>>*/ buf =
-        /*<<format.ml:1040:12>>*/ caml_call1(Stdlib_Domain[10][2], key),
-      /*<<format.ml:1041:12>>*/ len =
-        /*<<format.ml:1041:12>>*/ caml_call1(Stdlib_Buffer[7], buf),
-      /*<<format.ml:1042:12>>*/ str =
-        /*<<format.ml:1042:12>>*/ caml_call1(Stdlib_Buffer[2], buf);
-     /*<<format.ml:1043:2>>*/  /*<<format.ml:1043:2>>*/ caml_call4
+     /*<<format.ml:1060:2>>*/ var
+      /*<<format.ml:1060:12>>*/ buf =
+        /*<<format.ml:1060:12>>*/ caml_call1(Stdlib_Domain[11][2], key),
+      /*<<format.ml:1061:12>>*/ len =
+        /*<<format.ml:1061:12>>*/ caml_call1(Stdlib_Buffer[7], buf),
+      /*<<format.ml:1062:12>>*/ str =
+        /*<<format.ml:1062:12>>*/ caml_call1(Stdlib_Buffer[2], buf);
+     /*<<format.ml:1063:2>>*/  /*<<format.ml:1063:2>>*/ caml_call4
      (Stdlib[69], oc, str, 0, len);
-     /*<<format.ml:1044:2>>*/  /*<<format.ml:1044:2>>*/ caml_call1
+     /*<<format.ml:1064:2>>*/  /*<<format.ml:1064:2>>*/ caml_call1
      (Stdlib[63], oc);
-     /*<<format.ml:1044:2>>*/ return  /*<<format.ml:1044:2>>*/ caml_call1
+     /*<<format.ml:1064:2>>*/ return  /*<<format.ml:1064:2>>*/ caml_call1
             (Stdlib_Buffer[8], buf);
-    /*<<format.ml:1045:18>>*/ }
-    /*<<format.ml:1047:18>>*/ var
-     /*<<format.ml:1047:18>>*/ std_buf_key =
-       /*<<format.ml:1047:18>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+    /*<<format.ml:1065:18>>*/ }
+    /*<<format.ml:1067:18>>*/ var
+     /*<<format.ml:1067:18>>*/ std_buf_key =
+       /*<<format.ml:1067:18>>*/ caml_call2
+       (Stdlib_Domain[11][1],
         0,
         function(param){
-          /*<<format.ml:1047:48>>*/ return caml_call1
+          /*<<format.ml:1067:48>>*/ return caml_call1
                  (Stdlib_Buffer[1], pp_buffer_size);
-         /*<<format.ml:1047:76>>*/ }),
-     /*<<format.ml:1048:18>>*/ err_buf_key =
-       /*<<format.ml:1048:18>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+         /*<<format.ml:1067:76>>*/ }),
+     /*<<format.ml:1068:18>>*/ err_buf_key =
+       /*<<format.ml:1068:18>>*/ caml_call2
+       (Stdlib_Domain[11][1],
         0,
         function(param){
-          /*<<format.ml:1048:48>>*/ return  /*<<format.ml:1047:18>>*/ caml_call1
+          /*<<format.ml:1068:48>>*/ return  /*<<format.ml:1067:18>>*/ caml_call1
                  (Stdlib_Buffer[1], pp_buffer_size);
-         /*<<format.ml:1048:76>>*/ }),
-     /*<<format.ml:1050:24>>*/ std_formatter_key =
-       /*<<format.ml:1050:24>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+         /*<<format.ml:1068:76>>*/ }),
+     /*<<format.ml:1070:24>>*/ std_formatter_key =
+       /*<<format.ml:1070:24>>*/ caml_call2
+       (Stdlib_Domain[11][1],
         0,
         function(param){
-          /*<<format.ml:1051:2>>*/ var
+          /*<<format.ml:1071:2>>*/ var
           _ac_ = Stdlib[39],
-           /*<<format.ml:1052:4>>*/ ppf =
+           /*<<format.ml:1072:4>>*/ ppf =
             pp_make_formatter
              (function(_al_, _am_, _an_){
                 /*<<?>>*/ return buffered_out_string
@@ -27952,22 +27194,22 @@
           function(_af_){ /*<<?>>*/ return display_blanks(ppf, _af_);};
          ppf[21] =
           function(_ae_){ /*<<?>>*/ return display_blanks(ppf, _ae_);};
-          /*<<format.ml:1058:2>>*/  /*<<format.ml:1058:2>>*/ caml_call1
+          /*<<format.ml:1078:2>>*/  /*<<format.ml:1078:2>>*/ caml_call1
           (Stdlib_Domain[6],
            function(_ad_){ /*<<?>>*/ return pp_print_flush(ppf, _ad_);});
-          /*<<format.ml:1058:2>>*/ return ppf;
-         /*<<format.ml:1059:5>>*/ });
-    /*<<format.ml:1060:8>>*/  /*<<format.ml:1060:8>>*/ caml_call2
-    (Stdlib_Domain[10][3], std_formatter_key, std_formatter);
-    /*<<format.ml:1062:24>>*/  /*<<format.ml:1062:24>>*/ var
+          /*<<format.ml:1078:2>>*/ return ppf;
+         /*<<format.ml:1079:5>>*/ });
+    /*<<format.ml:1080:8>>*/  /*<<format.ml:1080:8>>*/ caml_call2
+    (Stdlib_Domain[11][3], std_formatter_key, std_formatter);
+    /*<<format.ml:1082:24>>*/  /*<<format.ml:1082:24>>*/ var
     err_formatter_key =
-       /*<<format.ml:1062:24>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+       /*<<format.ml:1082:24>>*/ caml_call2
+       (Stdlib_Domain[11][1],
         0,
         function(param){
-          /*<<format.ml:1063:2>>*/ var
+          /*<<format.ml:1083:2>>*/ var
           _S_ = Stdlib[40],
-           /*<<format.ml:1064:4>>*/ ppf =
+           /*<<format.ml:1084:4>>*/ ppf =
             pp_make_formatter
              (function(_$_, _aa_, _ab_){
                 /*<<?>>*/ return buffered_out_string
@@ -27982,513 +27224,530 @@
          ppf[19] = function(_W_){ /*<<?>>*/ return display_newline(ppf, _W_);};
          ppf[20] = function(_V_){ /*<<?>>*/ return display_blanks(ppf, _V_);};
          ppf[21] = function(_U_){ /*<<?>>*/ return display_blanks(ppf, _U_);};
-          /*<<format.ml:1070:2>>*/  /*<<format.ml:1070:2>>*/ caml_call1
+          /*<<format.ml:1090:2>>*/  /*<<format.ml:1090:2>>*/ caml_call1
           (Stdlib_Domain[6],
            function(_T_){ /*<<?>>*/ return pp_print_flush(ppf, _T_);});
-          /*<<format.ml:1070:2>>*/ return ppf;
-         /*<<format.ml:1071:5>>*/ });
-    /*<<format.ml:1072:8>>*/  /*<<format.ml:1072:8>>*/ caml_call2
-    (Stdlib_Domain[10][3], err_formatter_key, err_formatter);
+          /*<<format.ml:1090:2>>*/ return ppf;
+         /*<<format.ml:1091:5>>*/ });
+    /*<<format.ml:1092:8>>*/  /*<<format.ml:1092:8>>*/ caml_call2
+    (Stdlib_Domain[11][3], err_formatter_key, err_formatter);
    function get_std_formatter(param){
-     /*<<format.ml:1074:27>>*/ return  /*<<format.ml:1072:8>>*/ caml_call1
-            (Stdlib_Domain[10][2], std_formatter_key);
-    /*<<format.ml:1074:52>>*/ }
+     /*<<format.ml:1094:27>>*/ return  /*<<format.ml:1092:8>>*/ caml_call1
+            (Stdlib_Domain[11][2], std_formatter_key);
+    /*<<format.ml:1094:52>>*/ }
    function get_err_formatter(param){
-     /*<<format.ml:1075:27>>*/ return caml_call1
-            (Stdlib_Domain[10][2], err_formatter_key);
-    /*<<format.ml:1075:52>>*/ }
+     /*<<format.ml:1095:27>>*/ return caml_call1
+            (Stdlib_Domain[11][2], err_formatter_key);
+    /*<<format.ml:1095:52>>*/ }
    function get_str_formatter(param){
-     /*<<format.ml:1076:27>>*/ return caml_call1
-            (Stdlib_Domain[10][2], str_formatter_key);
-    /*<<format.ml:1076:52>>*/ }
+     /*<<format.ml:1096:27>>*/ return caml_call1
+            (Stdlib_Domain[11][2], str_formatter_key);
+    /*<<format.ml:1096:52>>*/ }
    function get_stdbuf(param){
-     /*<<format.ml:1077:20>>*/ return caml_call1
-            (Stdlib_Domain[10][2], stdbuf_key);
-    /*<<format.ml:1077:38>>*/ }
+     /*<<format.ml:1097:20>>*/ return caml_call1
+            (Stdlib_Domain[11][2], stdbuf_key);
+    /*<<format.ml:1097:38>>*/ }
    function flush_buffer_formatter(buf, ppf){
-     /*<<format.ml:1084:2>>*/ pp_flush_queue(ppf, 0);
-     /*<<format.ml:1085:10>>*/  /*<<format.ml:1085:10>>*/ var
-     s =  /*<<format.ml:1085:10>>*/ caml_call1(Stdlib_Buffer[2], buf);
-     /*<<format.ml:1086:2>>*/  /*<<format.ml:1086:2>>*/ caml_call1
+     /*<<format.ml:1104:2>>*/ pp_flush_queue(ppf, 0);
+     /*<<format.ml:1105:10>>*/  /*<<format.ml:1105:10>>*/ var
+     s =  /*<<format.ml:1105:10>>*/ caml_call1(Stdlib_Buffer[2], buf);
+     /*<<format.ml:1106:2>>*/  /*<<format.ml:1106:2>>*/ caml_call1
      (Stdlib_Buffer[9], buf);
-     /*<<format.ml:1086:2>>*/ return s;
-    /*<<format.ml:1087:3>>*/ }
+     /*<<format.ml:1106:2>>*/ return s;
+    /*<<format.ml:1107:3>>*/ }
    function flush_str_formatter(param){
-     /*<<format.ml:1091:2>>*/ var
-      /*<<format.ml:1091:15>>*/ stdbuf =
-        /*<<format.ml:1091:15>>*/ caml_call1(Stdlib_Domain[10][2], stdbuf_key),
-      /*<<format.ml:1092:22>>*/ str_formatter =
-        /*<<format.ml:1092:22>>*/ caml_call1
-        (Stdlib_Domain[10][2], str_formatter_key);
-     /*<<format.ml:1093:2>>*/ return flush_buffer_formatter
+     /*<<format.ml:1111:2>>*/ var
+      /*<<format.ml:1111:15>>*/ stdbuf =
+        /*<<format.ml:1111:15>>*/ caml_call1(Stdlib_Domain[11][2], stdbuf_key),
+      /*<<format.ml:1112:22>>*/ str_formatter =
+        /*<<format.ml:1112:22>>*/ caml_call1
+        (Stdlib_Domain[11][2], str_formatter_key);
+     /*<<format.ml:1113:2>>*/ return flush_buffer_formatter
             (stdbuf, str_formatter);
-    /*<<format.ml:1093:45>>*/ }
+    /*<<format.ml:1113:45>>*/ }
    function make_synchronized_formatter(output, flush){
-     /*<<format.ml:1096:2>>*/ return  /*<<format.ml:1096:14>>*/ caml_call2
-            (Stdlib_Domain[10][1],
+     /*<<format.ml:1116:2>>*/ return  /*<<format.ml:1116:14>>*/ caml_call2
+            (Stdlib_Domain[11][1],
              0,
              function(param){
-               /*<<format.ml:1097:4>>*/ var
-                /*<<format.ml:1097:14>>*/ buf =
-                  /*<<format.ml:1097:14>>*/ caml_call1
+               /*<<format.ml:1117:4>>*/ var
+                /*<<format.ml:1117:14>>*/ buf =
+                  /*<<format.ml:1117:14>>*/ caml_call1
                   (Stdlib_Buffer[1], pp_buffer_size),
-                /*<<format.ml:1098:18>>*/ output$0 =
-                  /*<<format.ml:1098:18>>*/ caml_call1(Stdlib_Buffer[18], buf);
+                /*<<format.ml:1118:18>>*/ output$0 =
+                  /*<<format.ml:1118:18>>*/ caml_call1(Stdlib_Buffer[18], buf);
               function flush$0(param){
-                /*<<format.ml:1100:6>>*/  /*<<format.ml:1100:37>>*/ var
+                /*<<format.ml:1120:6>>*/  /*<<format.ml:1120:37>>*/ var
                 _R_ =
-                   /*<<format.ml:1100:37>>*/ caml_call1(Stdlib_Buffer[7], buf);
-                /*<<format.ml:1100:6>>*/  /*<<format.ml:1100:6>>*/ caml_call3
+                   /*<<format.ml:1120:37>>*/ caml_call1(Stdlib_Buffer[7], buf);
+                /*<<format.ml:1120:6>>*/  /*<<format.ml:1120:6>>*/ caml_call3
                 (output,
-                  /*<<format.ml:1100:13>>*/ caml_call1(Stdlib_Buffer[2], buf),
+                  /*<<format.ml:1120:13>>*/ caml_call1(Stdlib_Buffer[2], buf),
                  0,
                  _R_);
-                /*<<format.ml:1101:6>>*/  /*<<format.ml:1101:6>>*/ caml_call1
+                /*<<format.ml:1121:6>>*/  /*<<format.ml:1121:6>>*/ caml_call1
                 (Stdlib_Buffer[8], buf);
-                /*<<format.ml:1101:6>>*/ return  /*<<format.ml:1101:6>>*/ caml_call1
+                /*<<format.ml:1121:6>>*/ return  /*<<format.ml:1121:6>>*/ caml_call1
                        (flush, 0);
-               /*<<format.ml:1102:14>>*/ }
-               /*<<format.ml:1104:4>>*/ return make_formatter
+               /*<<format.ml:1122:14>>*/ }
+               /*<<format.ml:1124:4>>*/ return make_formatter
                       (output$0, flush$0);
-              /*<<format.ml:1104:33>>*/ });
-    /*<<format.ml:1104:34>>*/ }
+              /*<<format.ml:1124:33>>*/ });
+    /*<<format.ml:1124:34>>*/ }
    function synchronized_formatter_of_out_(oc){
-     /*<<format.ml:1107:2>>*/ return make_synchronized_formatter
-            ( /*<<format.ml:1107:30>>*/ caml_call1(Stdlib[69], oc),
+     /*<<format.ml:1127:2>>*/ return make_synchronized_formatter
+            ( /*<<format.ml:1127:30>>*/ caml_call1(Stdlib[69], oc),
              function(param){
-               /*<<format.ml:1107:63>>*/ return  /*<<format.ml:1107:2>>*/ caml_call1
+               /*<<format.ml:1127:63>>*/ return  /*<<format.ml:1127:2>>*/ caml_call1
                       (Stdlib[63], oc);
-              /*<<format.ml:1107:71>>*/ });
-    /*<<format.ml:1107:72>>*/ }
-   function make_symbolic_output_buffer(param){ /*<<format.ml:1134:2>>*/ return [0, 0];
-    /*<<format.ml:1134:35>>*/ }
+              /*<<format.ml:1127:71>>*/ });
+    /*<<format.ml:1127:72>>*/ }
+   function make_symbolic_output_buffer(param){ /*<<format.ml:1154:2>>*/ return [0, 0];
+    /*<<format.ml:1154:35>>*/ }
    function clear_symbolic_output_buffer(sob){
-     /*<<format.ml:1137:2>>*/ sob[1] = 0;
+     /*<<format.ml:1157:2>>*/ sob[1] = 0;
     return 0;
-    /*<<format.ml:1137:36>>*/ }
+    /*<<format.ml:1157:36>>*/ }
    function get_symbolic_output_buffer(sob){
-     /*<<format.ml:1140:2>>*/ return caml_call1(Stdlib_List[10], sob[1]);
-    /*<<format.ml:1140:39>>*/ }
+     /*<<format.ml:1160:2>>*/ return caml_call1(Stdlib_List[10], sob[1]);
+    /*<<format.ml:1160:39>>*/ }
    function flush_symbolic_output_buffer(sob){
-     /*<<format.ml:1143:2>>*/  /*<<format.ml:1143:14>>*/ var
+     /*<<format.ml:1163:2>>*/  /*<<format.ml:1163:14>>*/ var
      items = get_symbolic_output_buffer(sob);
-     /*<<format.ml:1144:2>>*/ clear_symbolic_output_buffer(sob);
-     /*<<format.ml:1144:2>>*/ return items;
-    /*<<format.ml:1145:7>>*/ }
+     /*<<format.ml:1164:2>>*/ clear_symbolic_output_buffer(sob);
+     /*<<format.ml:1164:2>>*/ return items;
+    /*<<format.ml:1165:7>>*/ }
    function add_symbolic_output_item(sob, item){
-     /*<<format.ml:1148:2>>*/ sob[1] = [0, item, sob[1]];
+     /*<<format.ml:1168:2>>*/ sob[1] = [0, item, sob[1]];
     return 0;
-    /*<<format.ml:1148:70>>*/ }
+    /*<<format.ml:1168:70>>*/ }
    function formatter_of_symbolic_output_b(sob){
-     /*<<format.ml:1162:10>>*/ function f(s, i, n){
-      /*<<format.ml:1156:33>>*/ return add_symbolic_output_item
+     /*<<format.ml:1182:10>>*/ function f(s, i, n){
+      /*<<format.ml:1176:33>>*/ return add_symbolic_output_item
              (sob,
               [0,
-                /*<<format.ml:1156:48>>*/ caml_call3
+                /*<<format.ml:1176:48>>*/ caml_call3
                 (Stdlib_String[16], s, i, n)]);
     }
-     /*<<format.ml:1163:10>>*/ function g(_Q_){
-      /*<<format.ml:1152:4>>*/ return add_symbolic_output_item(sob, 0);
+     /*<<format.ml:1183:10>>*/ function g(_Q_){
+      /*<<format.ml:1172:4>>*/ return add_symbolic_output_item(sob, 0);
     }
-     /*<<format.ml:1164:10>>*/ function h(_P_){
-      /*<<format.ml:1154:4>>*/ return add_symbolic_output_item(sob, 1);
+     /*<<format.ml:1184:10>>*/ function h(_P_){
+      /*<<format.ml:1174:4>>*/ return add_symbolic_output_item(sob, 1);
     }
-     /*<<format.ml:1165:10>>*/ function i(n){
-      /*<<format.ml:1158:33>>*/ return add_symbolic_output_item(sob, [1, n]);
+     /*<<format.ml:1185:10>>*/ function i(n){
+      /*<<format.ml:1178:33>>*/ return add_symbolic_output_item(sob, [1, n]);
     }
-     /*<<format.ml:1166:10>>*/ function j(n){
-      /*<<format.ml:1160:33>>*/ return add_symbolic_output_item(sob, [2, n]);
+     /*<<format.ml:1186:10>>*/ function j(n){
+      /*<<format.ml:1180:33>>*/ return add_symbolic_output_item(sob, [2, n]);
     }
-     /*<<format.ml:1167:2>>*/ return pp_make_formatter(f, g, h, i, j);
-    /*<<format.ml:1167:29>>*/ }
+     /*<<format.ml:1187:2>>*/ return pp_make_formatter(f, g, h, i, j);
+    /*<<format.ml:1187:29>>*/ }
    function open_hbox(v){
-     /*<<format.ml:1176:18>>*/ return pp_open_hbox
-            ( /*<<format.ml:1176:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1196:18>>*/ return pp_open_hbox
+            ( /*<<format.ml:1196:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1176:60>>*/ }
+    /*<<format.ml:1196:60>>*/ }
    function open_vbox(v){
-     /*<<format.ml:1177:18>>*/ return pp_open_vbox
-            ( /*<<format.ml:1177:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1197:18>>*/ return pp_open_vbox
+            ( /*<<format.ml:1197:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1177:60>>*/ }
+    /*<<format.ml:1197:60>>*/ }
    function open_hvbox(v){
-     /*<<format.ml:1178:19>>*/ return pp_open_hvbox
-            ( /*<<format.ml:1178:33>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1198:19>>*/ return pp_open_hvbox
+            ( /*<<format.ml:1198:33>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1178:62>>*/ }
+    /*<<format.ml:1198:62>>*/ }
    function open_hovbox(v){
-     /*<<format.ml:1179:20>>*/ return pp_open_hovbox
-            ( /*<<format.ml:1179:35>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1199:20>>*/ return pp_open_hovbox
+            ( /*<<format.ml:1199:35>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1179:64>>*/ }
+    /*<<format.ml:1199:64>>*/ }
    function open_box(v){
-     /*<<format.ml:1180:17>>*/ return pp_open_box
-            ( /*<<format.ml:1180:29>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1200:17>>*/ return pp_open_box
+            ( /*<<format.ml:1200:29>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1180:58>>*/ }
+    /*<<format.ml:1200:58>>*/ }
    function close_box(v){
-     /*<<format.ml:1181:18>>*/ return pp_close_box
-            ( /*<<format.ml:1181:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1201:18>>*/ return pp_close_box
+            ( /*<<format.ml:1201:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1181:60>>*/ }
+    /*<<format.ml:1201:60>>*/ }
    function open_stag(v){
-     /*<<format.ml:1182:18>>*/ return pp_open_stag
-            ( /*<<format.ml:1182:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1202:18>>*/ return pp_open_stag
+            ( /*<<format.ml:1202:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1182:60>>*/ }
+    /*<<format.ml:1202:60>>*/ }
    function close_stag(v){
-     /*<<format.ml:1183:19>>*/ return pp_close_stag
-            ( /*<<format.ml:1183:33>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1203:19>>*/ return pp_close_stag
+            ( /*<<format.ml:1203:33>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1183:62>>*/ }
+    /*<<format.ml:1203:62>>*/ }
    function print_as(isize, w){
-     /*<<format.ml:1184:19>>*/  /*<<format.ml:1184:31>>*/ var
+     /*<<format.ml:1204:19>>*/  /*<<format.ml:1204:31>>*/ var
      state =
-        /*<<format.ml:1184:31>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, w);
-    /*<<format.ml:1184:62>>*/ }
+        /*<<format.ml:1204:31>>*/ caml_call1
+        (Stdlib_Domain[11][2], std_formatter_key);
+     /*<<format.ml:643:2>>*/ return pp_print_as_size(state, isize, w);
+    /*<<format.ml:1204:62>>*/ }
    function print_string(v){
-     /*<<format.ml:1185:21>>*/ return pp_print_string
-            ( /*<<format.ml:1185:37>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1205:21>>*/ return pp_print_string
+            ( /*<<format.ml:1205:37>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
+             v);
+    /*<<format.ml:1205:66>>*/ }
+   function print_substring(pos, len, v){
+     /*<<format.ml:1207:2>>*/  /*<<format.ml:1207:32>>*/ var
+     state =
+        /*<<format.ml:1207:32>>*/ caml_call1
+        (Stdlib_Domain[11][2], std_formatter_key);
+     /*<<format.ml:654:2>>*/ return pp_print_substring_as
+            (pos, len, state, len, v);
+    /*<<format.ml:1207:61>>*/ }
+   function print_substring_as(pos, len, as_len, v){
+     /*<<format.ml:1209:2>>*/ return pp_print_substring_as
+            (pos,
+             len,
+              /*<<format.ml:1209:34>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
+             as_len,
              v);
-    /*<<format.ml:1185:66>>*/ }
+    /*<<format.ml:1209:70>>*/ }
    function print_bytes(v){
-     /*<<format.ml:1186:20>>*/ return pp_print_bytes
-            ( /*<<format.ml:1186:35>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1210:20>>*/ return pp_print_bytes
+            ( /*<<format.ml:1210:35>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1186:64>>*/ }
+    /*<<format.ml:1210:64>>*/ }
    function print_int(v){
-     /*<<format.ml:1187:18>>*/ return pp_print_int
-            ( /*<<format.ml:1187:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1211:18>>*/ return pp_print_int
+            ( /*<<format.ml:1211:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1187:60>>*/ }
+    /*<<format.ml:1211:60>>*/ }
    function print_float(v){
-     /*<<format.ml:1188:20>>*/ return pp_print_float
-            ( /*<<format.ml:1188:35>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1212:20>>*/ return pp_print_float
+            ( /*<<format.ml:1212:35>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1188:64>>*/ }
+    /*<<format.ml:1212:64>>*/ }
    function print_char(v){
-     /*<<format.ml:1189:19>>*/ return pp_print_char
-            ( /*<<format.ml:1189:33>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1213:19>>*/ return pp_print_char
+            ( /*<<format.ml:1213:33>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1189:62>>*/ }
+    /*<<format.ml:1213:62>>*/ }
    function print_bool(v){
-     /*<<format.ml:1190:19>>*/ return pp_print_bool
-            ( /*<<format.ml:1190:33>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1214:19>>*/ return pp_print_bool
+            ( /*<<format.ml:1214:33>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1190:62>>*/ }
+    /*<<format.ml:1214:62>>*/ }
    function print_break(v, w){
-     /*<<format.ml:1191:22>>*/ return pp_print_break
-            ( /*<<format.ml:1191:37>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1215:22>>*/ return pp_print_break
+            ( /*<<format.ml:1215:37>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v,
              w);
-    /*<<format.ml:1191:68>>*/ }
+    /*<<format.ml:1215:68>>*/ }
    function print_cut(v){
-     /*<<format.ml:1192:18>>*/ return pp_print_cut
-            ( /*<<format.ml:1192:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1216:18>>*/ return pp_print_cut
+            ( /*<<format.ml:1216:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1192:60>>*/ }
+    /*<<format.ml:1216:60>>*/ }
    function print_space(v){
-     /*<<format.ml:1193:20>>*/ return pp_print_space
-            ( /*<<format.ml:1193:35>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1217:20>>*/ return pp_print_space
+            ( /*<<format.ml:1217:35>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1193:64>>*/ }
+    /*<<format.ml:1217:64>>*/ }
    function force_newline(v){
-     /*<<format.ml:1194:22>>*/ return pp_force_newline
-            ( /*<<format.ml:1194:39>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1218:22>>*/ return pp_force_newline
+            ( /*<<format.ml:1218:39>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1194:68>>*/ }
+    /*<<format.ml:1218:68>>*/ }
    function print_flush(v){
-     /*<<format.ml:1195:20>>*/ return pp_print_flush
-            ( /*<<format.ml:1195:35>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1219:20>>*/ return pp_print_flush
+            ( /*<<format.ml:1219:35>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1195:64>>*/ }
+    /*<<format.ml:1219:64>>*/ }
    function print_newline(v){
-     /*<<format.ml:1196:22>>*/ return pp_print_newline
-            ( /*<<format.ml:1196:39>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1220:22>>*/ return pp_print_newline
+            ( /*<<format.ml:1220:39>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1196:68>>*/ }
+    /*<<format.ml:1220:68>>*/ }
    function print_if_newline(v){
-     /*<<format.ml:1197:25>>*/ return pp_print_if_newline
-            ( /*<<format.ml:1197:45>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1221:25>>*/ return pp_print_if_newline
+            ( /*<<format.ml:1221:45>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1197:74>>*/ }
+    /*<<format.ml:1221:74>>*/ }
    function open_tbox(v){
-     /*<<format.ml:1199:18>>*/ return pp_open_tbox
-            ( /*<<format.ml:1199:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1223:18>>*/ return pp_open_tbox
+            ( /*<<format.ml:1223:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1199:60>>*/ }
+    /*<<format.ml:1223:60>>*/ }
    function close_tbox(v){
-     /*<<format.ml:1200:19>>*/ return pp_close_tbox
-            ( /*<<format.ml:1200:33>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1224:19>>*/ return pp_close_tbox
+            ( /*<<format.ml:1224:33>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1200:62>>*/ }
+    /*<<format.ml:1224:62>>*/ }
    function print_tbreak(v, w){
-     /*<<format.ml:1201:23>>*/ return pp_print_tbreak
-            ( /*<<format.ml:1201:39>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1225:23>>*/ return pp_print_tbreak
+            ( /*<<format.ml:1225:39>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v,
              w);
-    /*<<format.ml:1201:70>>*/ }
+    /*<<format.ml:1225:70>>*/ }
    function set_tab(v){
-     /*<<format.ml:1203:16>>*/ return pp_set_tab
-            ( /*<<format.ml:1203:27>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1227:16>>*/ return pp_set_tab
+            ( /*<<format.ml:1227:27>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1203:56>>*/ }
+    /*<<format.ml:1227:56>>*/ }
    function print_tab(v){
-     /*<<format.ml:1204:18>>*/ return pp_print_tab
-            ( /*<<format.ml:1204:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1228:18>>*/ return pp_print_tab
+            ( /*<<format.ml:1228:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1204:60>>*/ }
+    /*<<format.ml:1228:60>>*/ }
    function set_margin(v){
-     /*<<format.ml:1206:19>>*/ return pp_set_margin
-            ( /*<<format.ml:1206:33>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1230:19>>*/ return pp_set_margin
+            ( /*<<format.ml:1230:33>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1206:62>>*/ }
+    /*<<format.ml:1230:62>>*/ }
    function get_margin(v){
-     /*<<format.ml:1207:19>>*/  /*<<format.ml:1207:33>>*/ var
+     /*<<format.ml:1231:19>>*/  /*<<format.ml:1231:33>>*/ var
      state =
-        /*<<format.ml:1207:33>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1231:33>>*/ caml_call1
+        (Stdlib_Domain[11][2], std_formatter_key);
     return state[6];
-    /*<<format.ml:1207:62>>*/ }
+    /*<<format.ml:1231:62>>*/ }
    function set_max_indent(v){
-     /*<<format.ml:1209:23>>*/ return pp_set_max_indent
-            ( /*<<format.ml:1209:41>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1233:23>>*/ return pp_set_max_indent
+            ( /*<<format.ml:1233:41>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1209:70>>*/ }
+    /*<<format.ml:1233:70>>*/ }
    function get_max_indent(v){
-     /*<<format.ml:1210:23>>*/  /*<<format.ml:1210:41>>*/ var
+     /*<<format.ml:1234:23>>*/  /*<<format.ml:1234:41>>*/ var
      state =
-        /*<<format.ml:1210:41>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1234:41>>*/ caml_call1
+        (Stdlib_Domain[11][2], std_formatter_key);
     return state[8];
-    /*<<format.ml:1210:70>>*/ }
+    /*<<format.ml:1234:70>>*/ }
    function set_geometry(max_indent, margin){
-     /*<<format.ml:1213:2>>*/ return pp_set_geometry
-            ( /*<<format.ml:1213:18>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1237:2>>*/ return pp_set_geometry
+            ( /*<<format.ml:1237:18>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              max_indent,
              margin);
-    /*<<format.ml:1213:65>>*/ }
+    /*<<format.ml:1237:65>>*/ }
    function safe_set_geometry(max_indent, margin){
-     /*<<format.ml:1215:2>>*/ return pp_safe_set_geometry
-            ( /*<<format.ml:1215:23>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1239:2>>*/ return pp_safe_set_geometry
+            ( /*<<format.ml:1239:23>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              max_indent,
              margin);
-    /*<<format.ml:1215:70>>*/ }
+    /*<<format.ml:1239:70>>*/ }
    function get_geometry(v){
-     /*<<format.ml:1216:21>>*/ return pp_get_geometry
-            ( /*<<format.ml:1216:37>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1240:21>>*/ return pp_get_geometry
+            ( /*<<format.ml:1240:37>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1216:66>>*/ }
+    /*<<format.ml:1240:66>>*/ }
    function update_geometry(v){
-     /*<<format.ml:1217:24>>*/ return pp_update_geometry
-            ( /*<<format.ml:1217:43>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1241:24>>*/ return pp_update_geometry
+            ( /*<<format.ml:1241:43>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1217:72>>*/ }
+    /*<<format.ml:1241:72>>*/ }
    function set_max_boxes(v){
-     /*<<format.ml:1219:22>>*/ return pp_set_max_boxes
-            ( /*<<format.ml:1219:39>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1243:22>>*/ return pp_set_max_boxes
+            ( /*<<format.ml:1243:39>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1219:68>>*/ }
+    /*<<format.ml:1243:68>>*/ }
    function get_max_boxes(v){
-     /*<<format.ml:1220:22>>*/  /*<<format.ml:1220:39>>*/ var
+     /*<<format.ml:1244:22>>*/  /*<<format.ml:1244:39>>*/ var
      state =
-        /*<<format.ml:1220:39>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1244:39>>*/ caml_call1
+        (Stdlib_Domain[11][2], std_formatter_key);
     return state[15];
-    /*<<format.ml:1220:68>>*/ }
+    /*<<format.ml:1244:68>>*/ }
    function over_max_boxes(v){
-     /*<<format.ml:1221:23>>*/ return pp_over_max_boxes
-            ( /*<<format.ml:1221:41>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1245:23>>*/ return pp_over_max_boxes
+            ( /*<<format.ml:1245:41>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1221:70>>*/ }
+    /*<<format.ml:1245:70>>*/ }
    function set_ellipsis_text(v){
-     /*<<format.ml:1223:26>>*/ return pp_set_ellipsis_text
-            ( /*<<format.ml:1223:47>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1247:26>>*/ return pp_set_ellipsis_text
+            ( /*<<format.ml:1247:47>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1223:76>>*/ }
+    /*<<format.ml:1247:76>>*/ }
    function get_ellipsis_text(v){
-     /*<<format.ml:1224:26>>*/  /*<<format.ml:1224:47>>*/ var
+     /*<<format.ml:1248:26>>*/  /*<<format.ml:1248:47>>*/ var
      state =
-        /*<<format.ml:1224:47>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1248:47>>*/ caml_call1
+        (Stdlib_Domain[11][2], std_formatter_key);
     return state[16];
-    /*<<format.ml:1224:76>>*/ }
+    /*<<format.ml:1248:76>>*/ }
    function set_formatter_out_channel(v){
-     /*<<format.ml:1227:2>>*/ return pp_set_formatter_out_channel
-            ( /*<<format.ml:1227:31>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1251:2>>*/ return pp_set_formatter_out_channel
+            ( /*<<format.ml:1251:31>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1227:60>>*/ }
+    /*<<format.ml:1251:60>>*/ }
    function set_formatter_out_functions(v){
-     /*<<format.ml:1230:2>>*/ return pp_set_formatter_out_functions
-            ( /*<<format.ml:1230:33>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1254:2>>*/ return pp_set_formatter_out_functions
+            ( /*<<format.ml:1254:33>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1230:62>>*/ }
+    /*<<format.ml:1254:62>>*/ }
    function get_formatter_out_functions(v){
-     /*<<format.ml:1232:2>>*/ return pp_get_formatter_out_functions
-            ( /*<<format.ml:1232:33>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1256:2>>*/ return pp_get_formatter_out_functions
+            ( /*<<format.ml:1256:33>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1232:62>>*/ }
+    /*<<format.ml:1256:62>>*/ }
    function set_formatter_output_functions(v, w){
-     /*<<format.ml:1235:2>>*/ return pp_set_formatter_output_functi
-            ( /*<<format.ml:1235:36>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1259:2>>*/ return pp_set_formatter_output_functi
+            ( /*<<format.ml:1259:36>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v,
              w);
-    /*<<format.ml:1235:67>>*/ }
+    /*<<format.ml:1259:67>>*/ }
    function get_formatter_output_functions(v){
-     /*<<format.ml:1237:2>>*/ return pp_get_formatter_output_functi
-            ( /*<<format.ml:1237:36>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1261:2>>*/ return pp_get_formatter_output_functi
+            ( /*<<format.ml:1261:36>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1237:65>>*/ }
+    /*<<format.ml:1261:65>>*/ }
    function set_formatter_stag_functions(v){
-     /*<<format.ml:1240:2>>*/ return pp_set_formatter_stag_function
-            ( /*<<format.ml:1240:34>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1264:2>>*/ return pp_set_formatter_stag_function
+            ( /*<<format.ml:1264:34>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1240:63>>*/ }
+    /*<<format.ml:1264:63>>*/ }
    function get_formatter_stag_functions(v){
-     /*<<format.ml:1242:2>>*/ return pp_get_formatter_stag_function
-            ( /*<<format.ml:1242:34>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1266:2>>*/ return pp_get_formatter_stag_function
+            ( /*<<format.ml:1266:34>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1242:63>>*/ }
+    /*<<format.ml:1266:63>>*/ }
    function set_print_tags(v){
-     /*<<format.ml:1244:2>>*/ return pp_set_print_tags
-            ( /*<<format.ml:1244:20>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1268:2>>*/ return pp_set_print_tags
+            ( /*<<format.ml:1268:20>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1244:49>>*/ }
+    /*<<format.ml:1268:49>>*/ }
    function get_print_tags(v){
-     /*<<format.ml:1246:2>>*/  /*<<format.ml:1246:20>>*/ var
+     /*<<format.ml:1270:2>>*/  /*<<format.ml:1270:20>>*/ var
      state =
-        /*<<format.ml:1246:20>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1270:20>>*/ caml_call1
+        (Stdlib_Domain[11][2], std_formatter_key);
     return state[22];
-    /*<<format.ml:1246:49>>*/ }
+    /*<<format.ml:1270:49>>*/ }
    function set_mark_tags(v){
-     /*<<format.ml:1248:2>>*/ return pp_set_mark_tags
-            ( /*<<format.ml:1248:19>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1272:2>>*/ return pp_set_mark_tags
+            ( /*<<format.ml:1272:19>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1248:48>>*/ }
+    /*<<format.ml:1272:48>>*/ }
    function get_mark_tags(v){
-     /*<<format.ml:1250:2>>*/  /*<<format.ml:1250:19>>*/ var
+     /*<<format.ml:1274:2>>*/  /*<<format.ml:1274:19>>*/ var
      state =
-        /*<<format.ml:1250:19>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1274:19>>*/ caml_call1
+        (Stdlib_Domain[11][2], std_formatter_key);
     return state[23];
-    /*<<format.ml:1250:48>>*/ }
+    /*<<format.ml:1274:48>>*/ }
    function set_tags(v){
-     /*<<format.ml:1252:2>>*/ return pp_set_tags
-            ( /*<<format.ml:1252:14>>*/ caml_call1
-              (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1276:2>>*/ return pp_set_tags
+            ( /*<<format.ml:1276:14>>*/ caml_call1
+              (Stdlib_Domain[11][2], std_formatter_key),
              v);
-    /*<<format.ml:1252:43>>*/ }
+    /*<<format.ml:1276:43>>*/ }
    function pp_print_iter(opt, iter, pp_v, ppf, v){
-     /*<<format.ml:1258:17>>*/ var
+     /*<<format.ml:1282:17>>*/ var
      pp_sep = opt ? opt[1] : pp_print_cut,
-      /*<<format.ml:1258:17>>*/ is_first = [0, 1];
+      /*<<format.ml:1282:17>>*/ is_first = [0, 1];
     function pp_v$0(v){
-      /*<<format.ml:1260:4>>*/ if(is_first[1])
+      /*<<format.ml:1284:4>>*/ if(is_first[1])
       is_first[1] = 0;
      else
-       /*<<format.ml:1260:45>>*/  /*<<format.ml:1260:45>>*/ caml_call2
+       /*<<format.ml:1284:45>>*/  /*<<format.ml:1284:45>>*/ caml_call2
        (pp_sep, ppf, 0);
-      /*<<format.ml:1260:45>>*/ return  /*<<format.ml:1260:45>>*/ caml_call2
+      /*<<format.ml:1284:45>>*/ return  /*<<format.ml:1284:45>>*/ caml_call2
              (pp_v, ppf, v);
-     /*<<format.ml:1261:14>>*/ }
-     /*<<format.ml:1263:2>>*/ return  /*<<format.ml:1263:2>>*/ caml_call2
+     /*<<format.ml:1285:14>>*/ }
+     /*<<format.ml:1287:2>>*/ return  /*<<format.ml:1287:2>>*/ caml_call2
             (iter, pp_v$0, v);
    }
    function pp_print_list(opt, pp_v, ppf, v){
     var pp_sep = opt ? opt[1] : pp_print_cut;
-     /*<<format.ml:1267:2>>*/ return pp_print_iter
+     /*<<format.ml:1291:2>>*/ return pp_print_iter
             ([0, pp_sep], Stdlib_List[18], pp_v, ppf, v);
    }
    function pp_print_array(opt, pp_v, ppf, v){
     var pp_sep = opt ? opt[1] : pp_print_cut;
-     /*<<format.ml:1271:2>>*/ return pp_print_iter
+     /*<<format.ml:1295:2>>*/ return pp_print_iter
             ([0, pp_sep], Stdlib_Array[12], pp_v, ppf, v);
    }
    function pp_print_seq(opt, pp_v, ppf, seq){
     var pp_sep = opt ? opt[1] : pp_print_cut;
-     /*<<format.ml:1275:2>>*/ return pp_print_iter
+     /*<<format.ml:1299:2>>*/ return pp_print_iter
             ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq);
    }
-   function pp_print_text(ppf, s){
-     /*<<format.ml:1279:2>>*/ var
+   function pp_print_text(state, s){
+     /*<<format.ml:1303:2>>*/ var
      len = caml_ml_string_length(s),
-      /*<<format.ml:1280:13>>*/ left = [0, 0],
-      /*<<format.ml:1281:14>>*/ right = [0, 0];
+      /*<<format.ml:1304:13>>*/ left = [0, 0],
+      /*<<format.ml:1305:14>>*/ right = [0, 0];
     function flush(param){
-      /*<<format.ml:1283:4>>*/ pp_print_string
-      (ppf,
-        /*<<format.ml:1283:24>>*/ caml_call3
-        (Stdlib_String[16], s, left[1], right[1] - left[1] | 0));
+      /*<<format.ml:1307:4>>*/ var
+      len = right[1] - left[1] | 0,
+      pos = left[1];
+      /*<<format.ml:654:2>>*/ pp_print_substring_as(pos, len, state, len, s);
      right[1]++;
      left[1] = right[1];
      return 0;
-     /*<<format.ml:1284:31>>*/ }
+     /*<<format.ml:1308:31>>*/ }
     for(;;){
      if(right[1] === len){
       var _O_ = left[1] !== len ? 1 : 0;
       return _O_ ? flush(0) : _O_;
      }
-      /*<<format.ml:1287:10>>*/  /*<<format.ml:1287:10>>*/ var
-      match =  /*<<format.ml:1287:10>>*/ runtime.caml_string_get(s, right[1]);
+      /*<<format.ml:1311:10>>*/  /*<<format.ml:1311:10>>*/ var
+      match =  /*<<format.ml:1311:10>>*/ runtime.caml_string_get(s, right[1]);
      if(10 === match){
-       /*<<format.ml:1289:8>>*/ flush(0);
-       /*<<format.ml:1290:8>>*/ pp_force_newline(ppf, 0);
+       /*<<format.ml:1313:8>>*/ flush(0);
+       /*<<format.ml:1314:8>>*/ pp_force_newline(state, 0);
      }
      else if(32 === match){
-       /*<<format.ml:1292:8>>*/ flush(0);
-       /*<<format.ml:1292:18>>*/ pp_print_space(ppf, 0);
+       /*<<format.ml:1316:8>>*/ flush(0);
+       /*<<format.ml:1316:18>>*/ pp_print_space(state, 0);
      }
      else
       right[1]++;
     }
-    /*<<format.ml:1297:31>>*/ }
+    /*<<format.ml:1321:31>>*/ }
    function pp_print_option(opt, pp_v, ppf, param){
     var
      none =
@@ -28496,82 +27755,82 @@
         ? opt[1]
         : function
          (_N_, param){
-           /*<<format.ml:1299:41>>*/ return 0;
-          /*<<format.ml:1299:43>>*/ };
+           /*<<format.ml:1323:41>>*/ return 0;
+          /*<<format.ml:1323:43>>*/ };
     if(! param)
-      /*<<format.ml:1300:10>>*/ return  /*<<format.ml:1300:10>>*/ caml_call2
+      /*<<format.ml:1324:10>>*/ return  /*<<format.ml:1324:10>>*/ caml_call2
              (none, ppf, 0);
     var v = param[1];
-     /*<<format.ml:1301:12>>*/ return  /*<<format.ml:1301:12>>*/ caml_call2
+     /*<<format.ml:1325:12>>*/ return  /*<<format.ml:1325:12>>*/ caml_call2
             (pp_v, ppf, v);
    }
    function pp_print_result(ok, error, ppf, param){
      /*<<?>>*/ if(0 === param[0]){
      var v = param[1];
-      /*<<format.ml:1304:10>>*/ return  /*<<format.ml:1304:10>>*/ caml_call2
+      /*<<format.ml:1328:10>>*/ return  /*<<format.ml:1328:10>>*/ caml_call2
              (ok, ppf, v);
     }
     var e = param[1];
-     /*<<format.ml:1305:13>>*/ return  /*<<format.ml:1305:13>>*/ caml_call2
+     /*<<format.ml:1329:13>>*/ return  /*<<format.ml:1329:13>>*/ caml_call2
             (error, ppf, e);
    }
    function pp_print_either(left, right, ppf, param){
      /*<<?>>*/ if(0 === param[0]){
      var l = param[1];
-      /*<<format.ml:1308:19>>*/ return  /*<<format.ml:1308:19>>*/ caml_call2
+      /*<<format.ml:1332:19>>*/ return  /*<<format.ml:1332:19>>*/ caml_call2
              (left, ppf, l);
     }
     var r = param[1];
-     /*<<format.ml:1309:20>>*/ return  /*<<format.ml:1309:20>>*/ caml_call2
+     /*<<format.ml:1333:20>>*/ return  /*<<format.ml:1333:20>>*/ caml_call2
             (right, ppf, r);
    }
    function compute_tag(output, tag_acc){
-     /*<<format.ml:1314:2>>*/ var
-      /*<<format.ml:1314:12>>*/ buf =
-        /*<<format.ml:1314:12>>*/ caml_call1(Stdlib_Buffer[1], 16),
-      /*<<format.ml:1315:12>>*/ ppf = formatter_of_buffer(buf);
-     /*<<format.ml:1316:2>>*/  /*<<format.ml:1316:2>>*/ caml_call2
+     /*<<format.ml:1338:2>>*/ var
+      /*<<format.ml:1338:12>>*/ buf =
+        /*<<format.ml:1338:12>>*/ caml_call1(Stdlib_Buffer[1], 16),
+      /*<<format.ml:1339:12>>*/ ppf = formatter_of_buffer(buf);
+     /*<<format.ml:1340:2>>*/  /*<<format.ml:1340:2>>*/ caml_call2
      (output, ppf, tag_acc);
-     /*<<format.ml:1317:2>>*/ pp_print_flush(ppf, 0);
-     /*<<format.ml:1318:12>>*/  /*<<format.ml:1318:12>>*/ var
-     len =  /*<<format.ml:1318:12>>*/ caml_call1(Stdlib_Buffer[7], buf);
-     /*<<format.ml:1319:2>>*/ return 2 <= len
-            ?  /*<<format.ml:1320:7>>*/ caml_call3
+     /*<<format.ml:1341:2>>*/ pp_print_flush(ppf, 0);
+     /*<<format.ml:1342:12>>*/  /*<<format.ml:1342:12>>*/ var
+     len =  /*<<format.ml:1342:12>>*/ caml_call1(Stdlib_Buffer[7], buf);
+     /*<<format.ml:1343:2>>*/ return 2 <= len
+            ?  /*<<format.ml:1344:7>>*/ caml_call3
               (Stdlib_Buffer[4], buf, 1, len - 2 | 0)
-            :  /*<<format.ml:1319:18>>*/ caml_call1(Stdlib_Buffer[2], buf);
-    /*<<format.ml:1320:33>>*/ }
+            :  /*<<format.ml:1343:18>>*/ caml_call1(Stdlib_Buffer[2], buf);
+    /*<<format.ml:1344:33>>*/ }
    function output_formatting_lit(ppf, fmting_lit){
-     /*<<format.ml:1333:43>>*/ if(typeof fmting_lit === "number")
+     /*<<format.ml:1357:43>>*/ if(typeof fmting_lit === "number")
      switch(fmting_lit){
        case 0:
-         /*<<format.ml:1334:33>>*/ return pp_close_box(ppf, 0);
+         /*<<format.ml:1358:33>>*/ return pp_close_box(ppf, 0);
        case 1:
-         /*<<format.ml:1335:33>>*/ return pp_close_stag(ppf, 0);
+         /*<<format.ml:1359:33>>*/ return pp_close_stag(ppf, 0);
        case 2:
-         /*<<format.ml:1337:33>>*/ return pp_print_flush(ppf, 0);
+         /*<<format.ml:1361:33>>*/ return pp_print_flush(ppf, 0);
        case 3:
-         /*<<format.ml:1338:33>>*/ return pp_force_newline(ppf, 0);
+         /*<<format.ml:1362:33>>*/ return pp_force_newline(ppf, 0);
        case 4:
-         /*<<format.ml:1339:33>>*/ return pp_print_newline(ppf, 0);
+         /*<<format.ml:1363:33>>*/ return pp_print_newline(ppf, 0);
        case 5:
-         /*<<format.ml:1341:33>>*/ return pp_print_char(ppf, 64);
-       default:  /*<<format.ml:1342:33>>*/ return pp_print_char(ppf, 37);
+         /*<<format.ml:1365:33>>*/ return pp_print_char(ppf, 64);
+       default:  /*<<format.ml:1366:33>>*/ return pp_print_char(ppf, 37);
      }
     switch(fmting_lit[0]){
       case 0:
        var offset = fmting_lit[3], width = fmting_lit[2];
-        /*<<format.ml:1336:33>>*/ return pp_print_break(ppf, width, offset);
+        /*<<format.ml:1360:33>>*/ return pp_print_break(ppf, width, offset);
       case 1:
-        /*<<format.ml:1340:33>>*/ return 0;
+        /*<<format.ml:1364:33>>*/ return 0;
       default:
        var c = fmting_lit[1];
-        /*<<format.ml:1343:33>>*/ pp_print_char(ppf, 64);
-        /*<<format.ml:1343:33>>*/ return pp_print_char(ppf, c);
+        /*<<format.ml:1367:33>>*/ pp_print_char(ppf, 64);
+        /*<<format.ml:1367:33>>*/ return pp_print_char(ppf, c);
     }
-    /*<<format.ml:1343:75>>*/ }
+    /*<<format.ml:1367:75>>*/ }
    function output_acc(ppf, acc){
-     /*<<format.ml:1349:29>>*/ if(typeof acc === "number")
-      /*<<format.ml:1375:32>>*/ return 0;
+     /*<<format.ml:1373:29>>*/ if(typeof acc === "number")
+      /*<<format.ml:1399:32>>*/ return 0;
     a:
     {
      b:
@@ -28581,26 +27840,26 @@
        switch(acc[0]){
          case 0:
           var f = acc[2], p = acc[1];
-           /*<<format.ml:1359:4>>*/ output_acc(ppf, p);
-           /*<<format.ml:1359:4>>*/ return output_formatting_lit(ppf, f);
+           /*<<format.ml:1383:4>>*/ output_acc(ppf, p);
+           /*<<format.ml:1383:4>>*/ return output_formatting_lit(ppf, f);
          case 1:
           var match = acc[2], p$0 = acc[1];
           if(0 === match[0]){
            var acc$0 = match[1];
-            /*<<format.ml:1362:4>>*/ output_acc(ppf, p$0);
-            /*<<format.ml:1363:21>>*/ return pp_open_stag
+            /*<<format.ml:1386:4>>*/ output_acc(ppf, p$0);
+            /*<<format.ml:1387:21>>*/ return pp_open_stag
                    (ppf, [0, String_tag, compute_tag(output_acc, acc$0)]);
           }
           var acc$1 = match[1];
-           /*<<format.ml:1365:4>>*/ output_acc(ppf, p$0);
-           /*<<format.ml:1366:43>>*/ var
-            /*<<format.ml:1366:43>>*/ _E_ = compute_tag(output_acc, acc$1),
-            /*<<format.ml:1366:24>>*/ match$0 =
-              /*<<format.ml:1366:24>>*/ caml_call1
+           /*<<format.ml:1389:4>>*/ output_acc(ppf, p$0);
+           /*<<format.ml:1390:43>>*/ var
+            /*<<format.ml:1390:43>>*/ _E_ = compute_tag(output_acc, acc$1),
+            /*<<format.ml:1390:24>>*/ match$0 =
+              /*<<format.ml:1390:24>>*/ caml_call1
               (CamlinternalFormat[20], _E_),
            bty = match$0[2],
            indent = match$0[1];
-           /*<<format.ml:1367:4>>*/ return pp_open_box_gen(ppf, indent, bty);
+           /*<<format.ml:1391:4>>*/ return pp_open_box_gen(ppf, indent, bty);
          case 2:
           var _F_ = acc[1];
           if(typeof _F_ !== "number" && 0 === _F_[0]){
@@ -28647,38 +27906,38 @@
           break c;
          case 6:
           var f$0 = acc[2], p$5 = acc[1];
-           /*<<format.ml:1372:32>>*/ output_acc(ppf, p$5);
-           /*<<format.ml:1372:32>>*/ return  /*<<format.ml:1372:32>>*/ caml_call1
+           /*<<format.ml:1396:32>>*/ output_acc(ppf, p$5);
+           /*<<format.ml:1396:32>>*/ return  /*<<format.ml:1396:32>>*/ caml_call1
                   (f$0, ppf);
          case 7:
           var p$6 = acc[1];
-           /*<<format.ml:1373:32>>*/ output_acc(ppf, p$6);
-           /*<<format.ml:1373:32>>*/ return pp_print_flush(ppf, 0);
+           /*<<format.ml:1397:32>>*/ output_acc(ppf, p$6);
+           /*<<format.ml:1397:32>>*/ return pp_print_flush(ppf, 0);
          default:
           var msg = acc[2], p$7 = acc[1];
-           /*<<format.ml:1374:32>>*/ output_acc(ppf, p$7);
-           /*<<format.ml:1374:32>>*/ return  /*<<format.ml:1374:32>>*/ caml_call1
+           /*<<format.ml:1398:32>>*/ output_acc(ppf, p$7);
+           /*<<format.ml:1398:32>>*/ return  /*<<format.ml:1398:32>>*/ caml_call1
                   (Stdlib[1], msg);
        }
-        /*<<format.ml:1356:4>>*/ output_acc(ppf, p$4);
-        /*<<format.ml:1357:44>>*/ return pp_print_as_size
+        /*<<format.ml:1380:4>>*/ output_acc(ppf, p$4);
+        /*<<format.ml:1381:44>>*/ return pp_print_as_size
                (ppf,
                 size$0,
-                 /*<<format.ml:1357:44>>*/ caml_call2
+                 /*<<format.ml:1381:44>>*/ caml_call2
                  (Stdlib_String[1], 1, c$0));
       }
-       /*<<format.ml:1371:32>>*/ output_acc(ppf, p$3);
-       /*<<format.ml:1371:32>>*/ return pp_print_char(ppf, c);
+       /*<<format.ml:1395:32>>*/ output_acc(ppf, p$3);
+       /*<<format.ml:1395:32>>*/ return pp_print_char(ppf, c);
      }
-      /*<<format.ml:1352:4>>*/ output_acc(ppf, p$2);
-      /*<<format.ml:1352:4>>*/ return pp_print_as_size(ppf, size, s$0);
+      /*<<format.ml:1376:4>>*/ output_acc(ppf, p$2);
+      /*<<format.ml:1376:4>>*/ return pp_print_as_size(ppf, size, s$0);
     }
-     /*<<format.ml:1369:32>>*/ output_acc(ppf, p$1);
-     /*<<format.ml:1369:32>>*/ return pp_print_string(ppf, s);
-    /*<<format.ml:1375:34>>*/ }
+     /*<<format.ml:1393:32>>*/ output_acc(ppf, p$1);
+     /*<<format.ml:1393:32>>*/ return pp_print_string(ppf, s);
+    /*<<format.ml:1399:34>>*/ }
    function strput_acc(ppf, acc){
-     /*<<format.ml:1381:29>>*/ if(typeof acc === "number")
-      /*<<format.ml:1410:32>>*/ return 0;
+     /*<<format.ml:1405:29>>*/ if(typeof acc === "number")
+      /*<<format.ml:1434:32>>*/ return 0;
     a:
     {
      b:
@@ -28688,26 +27947,26 @@
        switch(acc[0]){
          case 0:
           var f = acc[2], p = acc[1];
-           /*<<format.ml:1394:4>>*/ strput_acc(ppf, p);
-           /*<<format.ml:1394:4>>*/ return output_formatting_lit(ppf, f);
+           /*<<format.ml:1418:4>>*/ strput_acc(ppf, p);
+           /*<<format.ml:1418:4>>*/ return output_formatting_lit(ppf, f);
          case 1:
           var match = acc[2], p$0 = acc[1];
           if(0 === match[0]){
            var acc$0 = match[1];
-            /*<<format.ml:1397:4>>*/ strput_acc(ppf, p$0);
-            /*<<format.ml:1398:21>>*/ return pp_open_stag
+            /*<<format.ml:1421:4>>*/ strput_acc(ppf, p$0);
+            /*<<format.ml:1422:21>>*/ return pp_open_stag
                    (ppf, [0, String_tag, compute_tag(strput_acc, acc$0)]);
           }
           var acc$1 = match[1];
-           /*<<format.ml:1400:4>>*/ strput_acc(ppf, p$0);
-           /*<<format.ml:1401:43>>*/ var
-            /*<<format.ml:1401:43>>*/ _v_ = compute_tag(strput_acc, acc$1),
-            /*<<format.ml:1401:24>>*/ match$0 =
-              /*<<format.ml:1401:24>>*/ caml_call1
+           /*<<format.ml:1424:4>>*/ strput_acc(ppf, p$0);
+           /*<<format.ml:1425:43>>*/ var
+            /*<<format.ml:1425:43>>*/ _v_ = compute_tag(strput_acc, acc$1),
+            /*<<format.ml:1425:24>>*/ match$0 =
+              /*<<format.ml:1425:24>>*/ caml_call1
               (CamlinternalFormat[20], _v_),
            bty = match$0[2],
            indent = match$0[1];
-           /*<<format.ml:1402:4>>*/ return pp_open_box_gen(ppf, indent, bty);
+           /*<<format.ml:1426:4>>*/ return pp_open_box_gen(ppf, indent, bty);
          case 2:
           var _w_ = acc[1];
           if(typeof _w_ !== "number" && 0 === _w_[0]){
@@ -28758,60 +28017,60 @@
            var match$1 = p$5[2];
            if(typeof match$1 !== "number" && 1 === match$1[0]){
             var f$1 = acc[2], size$1 = match$1[2], p$6 = p$5[1];
-             /*<<format.ml:1391:4>>*/ strput_acc(ppf, p$6);
-             /*<<format.ml:1392:44>>*/ return pp_print_as_size
-                    (ppf, size$1,  /*<<format.ml:1392:44>>*/ caml_call1(f$1, 0));
+             /*<<format.ml:1415:4>>*/ strput_acc(ppf, p$6);
+             /*<<format.ml:1416:44>>*/ return pp_print_as_size
+                    (ppf, size$1,  /*<<format.ml:1416:44>>*/ caml_call1(f$1, 0));
            }
           }
           var f$0 = acc[2];
-           /*<<format.ml:1407:32>>*/ strput_acc(ppf, p$5);
-           /*<<format.ml:1407:70>>*/ return pp_print_string
-                  (ppf,  /*<<format.ml:1407:70>>*/ caml_call1(f$0, 0));
+           /*<<format.ml:1431:32>>*/ strput_acc(ppf, p$5);
+           /*<<format.ml:1431:70>>*/ return pp_print_string
+                  (ppf,  /*<<format.ml:1431:70>>*/ caml_call1(f$0, 0));
          case 7:
           var p$7 = acc[1];
-           /*<<format.ml:1408:32>>*/ strput_acc(ppf, p$7);
-           /*<<format.ml:1408:32>>*/ return pp_print_flush(ppf, 0);
+           /*<<format.ml:1432:32>>*/ strput_acc(ppf, p$7);
+           /*<<format.ml:1432:32>>*/ return pp_print_flush(ppf, 0);
          default:
           var msg = acc[2], p$8 = acc[1];
-           /*<<format.ml:1409:32>>*/ strput_acc(ppf, p$8);
-           /*<<format.ml:1409:32>>*/ return  /*<<format.ml:1409:32>>*/ caml_call1
+           /*<<format.ml:1433:32>>*/ strput_acc(ppf, p$8);
+           /*<<format.ml:1433:32>>*/ return  /*<<format.ml:1433:32>>*/ caml_call1
                   (Stdlib[1], msg);
        }
-        /*<<format.ml:1388:4>>*/ strput_acc(ppf, p$4);
-        /*<<format.ml:1389:44>>*/ return pp_print_as_size
+        /*<<format.ml:1412:4>>*/ strput_acc(ppf, p$4);
+        /*<<format.ml:1413:44>>*/ return pp_print_as_size
                (ppf,
                 size$0,
-                 /*<<format.ml:1389:44>>*/ caml_call2
+                 /*<<format.ml:1413:44>>*/ caml_call2
                  (Stdlib_String[1], 1, c$0));
       }
-       /*<<format.ml:1406:32>>*/ strput_acc(ppf, p$3);
-       /*<<format.ml:1406:32>>*/ return pp_print_char(ppf, c);
+       /*<<format.ml:1430:32>>*/ strput_acc(ppf, p$3);
+       /*<<format.ml:1430:32>>*/ return pp_print_char(ppf, c);
      }
-      /*<<format.ml:1384:4>>*/ strput_acc(ppf, p$2);
-      /*<<format.ml:1384:4>>*/ return pp_print_as_size(ppf, size, s$0);
+      /*<<format.ml:1408:4>>*/ strput_acc(ppf, p$2);
+      /*<<format.ml:1408:4>>*/ return pp_print_as_size(ppf, size, s$0);
     }
-     /*<<format.ml:1404:32>>*/ strput_acc(ppf, p$1);
-     /*<<format.ml:1404:32>>*/ return pp_print_string(ppf, s);
-    /*<<format.ml:1410:34>>*/ }
+     /*<<format.ml:1428:32>>*/ strput_acc(ppf, p$1);
+     /*<<format.ml:1428:32>>*/ return pp_print_string(ppf, s);
+    /*<<format.ml:1434:34>>*/ }
    function kfprintf(k, ppf, param){
     var fmt = param[1];
-     /*<<format.ml:1419:2>>*/ return  /*<<format.ml:1419:2>>*/ caml_call3
+     /*<<format.ml:1443:2>>*/ return  /*<<format.ml:1443:2>>*/ caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1420:16>>*/ output_acc(ppf, acc);
+               /*<<format.ml:1444:16>>*/ output_acc(ppf, acc);
               return caml_call1(k, ppf);
-              /*<<format.ml:1420:41>>*/ },
+              /*<<format.ml:1444:41>>*/ },
              0,
              fmt);
    }
    function ikfprintf(k, ppf, param){
     var fmt = param[1];
-     /*<<format.ml:1424:2>>*/ return  /*<<format.ml:1424:2>>*/ caml_call3
+     /*<<format.ml:1448:2>>*/ return  /*<<format.ml:1448:2>>*/ caml_call3
             (CamlinternalFormat[8], k, ppf, fmt);
    }
    function ifprintf(ppf, param){
     var fmt = param[1];
-     /*<<format.ml:1427:2>>*/ return  /*<<format.ml:1427:2>>*/ caml_call3
+     /*<<format.ml:1451:2>>*/ return  /*<<format.ml:1451:2>>*/ caml_call3
             (CamlinternalFormat[8],
              function(_u_){ /*<<?>>*/ return 0;},
              0,
@@ -28819,109 +28078,109 @@
    }
    function fprintf(ppf){
     function _r_(_t_){ /*<<?>>*/ return 0;}
-     /*<<format.ml:1429:18>>*/ return function(_s_){
+     /*<<format.ml:1453:18>>*/ return function(_s_){
       /*<<?>>*/ return kfprintf(_r_, ppf, _s_);};
-    /*<<format.ml:1429:37>>*/ }
+    /*<<format.ml:1453:37>>*/ }
    function printf(param){
     var fmt = param[1];
-     /*<<format.ml:1432:2>>*/ return  /*<<format.ml:1432:2>>*/ caml_call3
+     /*<<format.ml:1456:2>>*/ return  /*<<format.ml:1456:2>>*/ caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1433:16>>*/ return output_acc
-                      ( /*<<format.ml:1433:27>>*/ caml_call1
-                        (Stdlib_Domain[10][2], std_formatter_key),
+               /*<<format.ml:1457:16>>*/ return output_acc
+                      ( /*<<format.ml:1457:27>>*/ caml_call1
+                        (Stdlib_Domain[11][2], std_formatter_key),
                        acc);
-              /*<<format.ml:1433:58>>*/ },
+              /*<<format.ml:1457:58>>*/ },
              0,
              fmt);
    }
    function eprintf(param){
     var fmt = param[1];
-     /*<<format.ml:1437:2>>*/ return  /*<<format.ml:1437:2>>*/ caml_call3
+     /*<<format.ml:1461:2>>*/ return  /*<<format.ml:1461:2>>*/ caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1438:16>>*/ return output_acc
-                      ( /*<<format.ml:1438:27>>*/ caml_call1
-                        (Stdlib_Domain[10][2], err_formatter_key),
+               /*<<format.ml:1462:16>>*/ return output_acc
+                      ( /*<<format.ml:1462:27>>*/ caml_call1
+                        (Stdlib_Domain[11][2], err_formatter_key),
                        acc);
-              /*<<format.ml:1438:58>>*/ },
+              /*<<format.ml:1462:58>>*/ },
              0,
              fmt);
    }
    function kdprintf(k, param){
     var fmt = param[1];
-     /*<<format.ml:1442:2>>*/ return  /*<<format.ml:1442:2>>*/ caml_call3
+     /*<<format.ml:1466:2>>*/ return  /*<<format.ml:1466:2>>*/ caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1443:16>>*/ return  /*<<format.ml:1443:18>>*/ caml_call1
+               /*<<format.ml:1467:16>>*/ return  /*<<format.ml:1467:18>>*/ caml_call1
                       (k,
                        function(ppf){
-                         /*<<format.ml:1443:30>>*/ return output_acc(ppf, acc);
-                        /*<<format.ml:1443:48>>*/ });
-              /*<<format.ml:1443:49>>*/ },
+                         /*<<format.ml:1467:30>>*/ return output_acc(ppf, acc);
+                        /*<<format.ml:1467:48>>*/ });
+              /*<<format.ml:1467:49>>*/ },
              0,
              fmt);
    }
    function dprintf(fmt){
-     /*<<format.ml:1446:18>>*/ return kdprintf
+     /*<<format.ml:1470:18>>*/ return kdprintf
             (function(i){
-               /*<<format.ml:1446:37>>*/ return i;
-              /*<<format.ml:1446:38>>*/ },
+               /*<<format.ml:1470:37>>*/ return i;
+              /*<<format.ml:1470:38>>*/ },
              fmt);
-    /*<<format.ml:1446:43>>*/ }
+    /*<<format.ml:1470:43>>*/ }
    function ksprintf(k, param){
-     /*<<format.ml:1449:10>>*/ var
+     /*<<format.ml:1473:10>>*/ var
      fmt = param[1],
-      /*<<format.ml:1449:10>>*/ b = pp_make_buffer(0),
-      /*<<format.ml:1450:12>>*/ ppf = formatter_of_buffer(b);
+      /*<<format.ml:1473:10>>*/ b = pp_make_buffer(0),
+      /*<<format.ml:1474:12>>*/ ppf = formatter_of_buffer(b);
     function k$0(acc){
-      /*<<format.ml:1452:4>>*/ strput_acc(ppf, acc);
-      /*<<format.ml:1453:6>>*/ return  /*<<format.ml:1453:6>>*/ caml_call1
+      /*<<format.ml:1476:4>>*/ strput_acc(ppf, acc);
+      /*<<format.ml:1477:6>>*/ return  /*<<format.ml:1477:6>>*/ caml_call1
              (k, flush_buffer_formatter(b, ppf));
-     /*<<format.ml:1453:36>>*/ }
-     /*<<format.ml:1454:2>>*/ return  /*<<format.ml:1454:2>>*/ caml_call3
+     /*<<format.ml:1477:36>>*/ }
+     /*<<format.ml:1478:2>>*/ return  /*<<format.ml:1478:2>>*/ caml_call3
             (CamlinternalFormat[7], k$0, 0, fmt);
    }
    function sprintf(fmt){
-     /*<<format.ml:1457:18>>*/ return ksprintf(id, fmt);
-    /*<<format.ml:1457:33>>*/ }
+     /*<<format.ml:1481:18>>*/ return ksprintf(id, fmt);
+    /*<<format.ml:1481:33>>*/ }
    function kasprintf(k, param){
-     /*<<format.ml:1460:10>>*/ var
+     /*<<format.ml:1484:10>>*/ var
      fmt = param[1],
-      /*<<format.ml:1460:10>>*/ b = pp_make_buffer(0),
-      /*<<format.ml:1461:12>>*/ ppf = formatter_of_buffer(b);
+      /*<<format.ml:1484:10>>*/ b = pp_make_buffer(0),
+      /*<<format.ml:1485:12>>*/ ppf = formatter_of_buffer(b);
     function k$0(acc){
-      /*<<format.ml:1463:4>>*/ output_acc(ppf, acc);
-      /*<<format.ml:1464:6>>*/ return  /*<<format.ml:1464:6>>*/ caml_call1
+      /*<<format.ml:1487:4>>*/ output_acc(ppf, acc);
+      /*<<format.ml:1488:6>>*/ return  /*<<format.ml:1488:6>>*/ caml_call1
              (k, flush_buffer_formatter(b, ppf));
-     /*<<format.ml:1464:36>>*/ }
-     /*<<format.ml:1465:2>>*/ return  /*<<format.ml:1465:2>>*/ caml_call3
+     /*<<format.ml:1488:36>>*/ }
+     /*<<format.ml:1489:2>>*/ return  /*<<format.ml:1489:2>>*/ caml_call3
             (CamlinternalFormat[7], k$0, 0, fmt);
    }
    function asprintf(fmt){
-     /*<<format.ml:1468:19>>*/ return kasprintf(id, fmt);
-    /*<<format.ml:1468:35>>*/ }
+     /*<<format.ml:1492:19>>*/ return kasprintf(id, fmt);
+    /*<<format.ml:1492:35>>*/ }
    function flush_standard_formatters(param){
-     /*<<format.ml:1473:2>>*/ pp_print_flush
-     ( /*<<format.ml:1473:17>>*/ caml_call1
-       (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1497:2>>*/ pp_print_flush
+     ( /*<<format.ml:1497:17>>*/ caml_call1
+       (Stdlib_Domain[11][2], std_formatter_key),
       0);
-     /*<<format.ml:1473:2>>*/ return pp_print_flush
-            ( /*<<format.ml:1474:17>>*/ caml_call1
-              (Stdlib_Domain[10][2], err_formatter_key),
+     /*<<format.ml:1497:2>>*/ return pp_print_flush
+            ( /*<<format.ml:1498:17>>*/ caml_call1
+              (Stdlib_Domain[11][2], err_formatter_key),
              0);
-    /*<<format.ml:1474:47>>*/ }
-    /*<<format.ml:1476:9>>*/  /*<<format.ml:1476:9>>*/ caml_call1
+    /*<<format.ml:1498:47>>*/ }
+    /*<<format.ml:1500:9>>*/  /*<<format.ml:1500:9>>*/ caml_call1
     (Stdlib[100], flush_standard_formatters);
-    /*<<format.ml:1478:9>>*/  /*<<format.ml:1478:9>>*/ caml_call1
+    /*<<format.ml:1502:9>>*/  /*<<format.ml:1502:9>>*/ caml_call1
     (Stdlib_Domain[5],
      function(param){
-       /*<<format.ml:1479:2>>*/ flush_standard_formatters(0);
-       /*<<format.ml:1480:11>>*/ var
-        /*<<format.ml:1480:11>>*/ fs =
+       /*<<format.ml:1503:2>>*/ flush_standard_formatters(0);
+       /*<<format.ml:1504:11>>*/ var
+        /*<<format.ml:1504:11>>*/ fs =
          pp_get_formatter_out_functions(std_formatter, 0),
        _h_ = Stdlib[39];
-       /*<<format.ml:1481:2>>*/ pp_set_formatter_out_functions
+       /*<<format.ml:1505:2>>*/ pp_set_formatter_out_functions
        (std_formatter,
         [0,
          function(_o_, _p_, _q_){
@@ -28933,11 +28192,11 @@
          fs[3],
          fs[4],
          fs[5]]);
-       /*<<format.ml:1485:11>>*/ var
-        /*<<format.ml:1485:11>>*/ fs$0 =
+       /*<<format.ml:1509:11>>*/ var
+        /*<<format.ml:1509:11>>*/ fs$0 =
          pp_get_formatter_out_functions(err_formatter, 0),
        _i_ = Stdlib[40];
-       /*<<format.ml:1487:4>>*/ return pp_set_formatter_out_functions
+       /*<<format.ml:1511:4>>*/ return pp_set_formatter_out_functions
               (err_formatter,
                [0,
                 function(_k_, _l_, _m_){
@@ -28950,7 +28209,7 @@
                 fs$0[3],
                 fs$0[4],
                 fs$0[5]]);
-      /*<<format.ml:1488:71>>*/ });
+      /*<<format.ml:1512:71>>*/ });
    var
     Stdlib_Format =
       [0,
@@ -28968,10 +28227,14 @@
        open_hovbox,
        pp_print_string,
        print_string,
+       pp_print_substring,
+       print_substring,
        pp_print_bytes,
        print_bytes,
        pp_print_as,
        print_as,
+       pp_print_substring_as,
+       print_substring_as,
        pp_print_int,
        print_int,
        pp_print_float,
@@ -31336,10 +30599,10 @@
    var
     runtime = globalThis.jsoo_runtime,
     cst_camlinternalOO_ml = "camlinternalOO.ml",
+    caml_array_make = runtime.caml_array_make,
     caml_check_bound = runtime.caml_check_bound,
     caml_div = runtime.caml_div,
     caml_get_public_method = runtime.caml_get_public_method,
-    caml_make_vect = runtime.caml_make_vect,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_obj_block = runtime.caml_obj_block,
     caml_set_oo_id = runtime.caml_set_oo_id,
@@ -31426,7 +30689,7 @@
      /*<<camlinternalOO.ml:130:16>>*/ var
      len = pub_labels.length - 1,
       /*<<camlinternalOO.ml:130:16>>*/ methods =
-        /*<<camlinternalOO.ml:130:16>>*/ caml_make_vect
+        /*<<camlinternalOO.ml:130:16>>*/ caml_array_make
         ((len * 2 | 0) + 2 | 0, dummy_met);
      /*<<camlinternalOO.ml:131:2>>*/ caml_check_bound(methods, 0)[1] = len;
     var
@@ -31475,7 +30738,7 @@
     if(_ab_){
       /*<<camlinternalOO.ml:146:19>>*/  /*<<camlinternalOO.ml:146:19>>*/ var
       new_buck =
-         /*<<camlinternalOO.ml:146:19>>*/ caml_make_vect(new_size, dummy_met);
+         /*<<camlinternalOO.ml:146:19>>*/ caml_array_make(new_size, dummy_met);
       /*<<camlinternalOO.ml:147:4>>*/  /*<<camlinternalOO.ml:147:4>>*/ caml_call5
       (Stdlib_Array[9], array[2], 0, new_buck, 0, old_size);
      array[2] = new_buck;
@@ -31542,7 +30805,7 @@
       /*<<camlinternalOO.ml:188:6>>*/  /*<<camlinternalOO.ml:188:6>>*/ var
       _X_ =
          /*<<camlinternalOO.ml:188:6>>*/ caml_call2
-         (Stdlib_List[49], label, table[6]);
+         (Stdlib_List[53], label, table[6]);
       /*<<camlinternalOO.ml:188:6>>*/ return _X_;
     }
     catch(_Y_){
@@ -31719,7 +30982,8 @@
       /*<<camlinternalOO.ml:268:2>>*/ nmeths = meths$0.length - 1,
      nvals = vals.length - 1,
       /*<<camlinternalOO.ml:269:12>>*/ res =
-        /*<<camlinternalOO.ml:269:12>>*/ caml_make_vect(nmeths + nvals | 0, 0),
+        /*<<camlinternalOO.ml:269:12>>*/ caml_array_make
+        (nmeths + nvals | 0, 0),
       /*<<camlinternalOO.ml:270:2>>*/ _D_ = nmeths - 1 | 0,
       /*<<camlinternalOO.ml:269:12>>*/ _C_ = 0;
     if(_D_ >= 0){
@@ -31813,7 +31077,7 @@
              3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0);
     /*<<camlinternalOO.ml:314:69>>*/ }
    function inherits(cla, vals, virt_meths, concr_meths, param, top){
-    var env = param[4], super$0 = param[2];
+    var env = param[3], super$0 = param[2];
      /*<<camlinternalOO.ml:317:2>>*/ narrow
      (cla, vals, virt_meths, concr_meths);
     var
@@ -31856,9 +31120,8 @@
      /*<<camlinternalOO.ml:332:2>>*/ return [0,
              /*<<camlinternalOO.ml:332:3>>*/ caml_call1(env_init, 0),
             class_init,
-            env_init,
             0];
-    /*<<camlinternalOO.ml:332:59>>*/ }
+    /*<<camlinternalOO.ml:332:49>>*/ }
    function make_class_store(pub_meths, class_init, init_table){
      /*<<camlinternalOO.ml:338:2>>*/ var
       /*<<camlinternalOO.ml:338:14>>*/ table = create_table(pub_meths),
@@ -31874,8 +31137,8 @@
       /*<<camlinternalOO.ml:345:23>>*/ throw  /*<<camlinternalOO.ml:345:23>>*/ caml_maybe_attach_backtrace
             ([0, Stdlib[15], loc], 1);
      /*<<camlinternalOO.ml:345:61>>*/ }
-     /*<<camlinternalOO.ml:346:2>>*/ return [0, undef, undef, undef, 0];
-    /*<<camlinternalOO.ml:346:45>>*/ }
+     /*<<camlinternalOO.ml:346:2>>*/ return [0, undef, undef, 0];
+    /*<<camlinternalOO.ml:346:38>>*/ }
    function create_object(table){
      /*<<camlinternalOO.ml:352:2>>*/  /*<<camlinternalOO.ml:352:12>>*/ var
      obj =
@@ -32345,254 +31608,1597 @@
           /*<<camlinternalOO.ml:594:57>>*/ new_cache(table);
          let m$6 = m$5, n$19 = n$18;
          var
-          clo$0 =
-            function(obj){
-              /*<<camlinternalOO.ml:505:4>>*/  /*<<camlinternalOO.ml:505:14>>*/ var
-              _i_ =
-                 /*<<camlinternalOO.ml:505:14>>*/ caml_call1
-                 (obj[1][1 + n$19], obj);
-              /*<<camlinternalOO.ml:505:14>>*/ return  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
-                     (caml_get_public_method(_i_, m$6, 0), _i_);
-             /*<<camlinternalOO.ml:505:59>>*/ };
+          clo$0 =
+            function(obj){
+              /*<<camlinternalOO.ml:505:4>>*/  /*<<camlinternalOO.ml:505:14>>*/ var
+              _i_ =
+                 /*<<camlinternalOO.ml:505:14>>*/ caml_call1
+                 (obj[1][1 + n$19], obj);
+              /*<<camlinternalOO.ml:505:14>>*/ return  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
+                     (caml_get_public_method(_i_, m$6, 0), _i_);
+             /*<<camlinternalOO.ml:505:59>>*/ };
+      }
+     else
+      var clo$0 = clo;
+      /*<<camlinternalOO.ml:601:4>>*/ set_method(table, label, clo$0);
+     i[1]++;
+    }
+    /*<<camlinternalOO.ml:603:6>>*/ }
+   function stats(param){
+     /*<<camlinternalOO.ml:611:2>>*/ return [0,
+            table_count[1],
+            method_count[1],
+            inst_var_count[1]];
+    /*<<camlinternalOO.ml:612:59>>*/ }
+   var
+    CamlinternalOO =
+      [0,
+       public_method_label,
+       new_method,
+       new_variable,
+       new_methods_variables,
+       get_variable,
+       get_variables,
+       get_method_label,
+       get_method_labels,
+       get_method,
+       set_method,
+       set_methods,
+       narrow,
+       widen,
+       add_initializer,
+       dummy_table,
+       create_table,
+       init_class,
+       inherits,
+       make_class,
+       make_class_store,
+       dummy_class,
+       copy,
+       create_object,
+       create_object_opt,
+       run_initializers,
+       run_initializers_opt,
+       create_object_and_run_initiali,
+       lookup_tables,
+       params,
+       stats];
+   runtime.caml_register_global(17, CamlinternalOO, "CamlinternalOO");
+   return;
+   /*<<?>>*/ }
+  (globalThis));
+
+//# unitInfo: Provides: Stdlib__Oo
+//# unitInfo: Requires: CamlinternalOO
+(function
+  (globalThis){
+   "use strict";
+   var
+    runtime = globalThis.jsoo_runtime,
+    global_data = runtime.caml_get_global_data(),
+    CamlinternalOO = global_data.CamlinternalOO,
+    copy = CamlinternalOO[22],
+    new_method = CamlinternalOO[1],
+    public_method_label = CamlinternalOO[1],
+    Stdlib_Oo = [0, copy, new_method, public_method_label];
+   runtime.caml_register_global(1, Stdlib_Oo, "Stdlib__Oo");
+   return;
+   /*<<?>>*/ }
+  (globalThis));
+
+//# unitInfo: Provides: CamlinternalMod
+//# unitInfo: Requires: CamlinternalLazy, CamlinternalOO, Stdlib, Stdlib__Obj
+(function
+  (globalThis){
+   "use strict";
+   var
+    runtime = globalThis.jsoo_runtime,
+    cst_camlinternalMod_ml = "camlinternalMod.ml",
+    caml_check_bound = runtime.caml_check_bound,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_obj_tag = runtime.caml_obj_tag;
+    /*<<?>>*/ function caml_call1(f, a0){
+    return (f.l >= 0 ? f.l : f.l = f.length) == 1
+            ? f(a0)
+            : runtime.caml_call_gen(f, [a0]);
+   }
+   var
+    global_data = runtime.caml_get_global_data(),
+    Stdlib = global_data.Stdlib,
+    CamlinternalLazy = global_data.CamlinternalLazy,
+    CamlinternalOO = global_data.CamlinternalOO,
+    Assert_failure = global_data.Assert_failure,
+    cst_CamlinternalMod_init_mod_n = "CamlinternalMod.init_mod: not a module",
+    _a_ = [0, cst_camlinternalMod_ml, 72, 5],
+    _b_ = [0, cst_camlinternalMod_ml, 81, 2],
+    cst_CamlinternalMod_update_mod =
+      "CamlinternalMod.update_mod: not a module";
+   function init_mod_block(loc, comps$0){
+     /*<<camlinternalMod.ml:52:2>>*/ var
+     length = comps$0.length - 1,
+      /*<<camlinternalMod.ml:53:13>>*/ modu =
+        /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block(0, length),
+      /*<<camlinternalMod.ml:54:2>>*/ _h_ = length - 1 | 0,
+      /*<<camlinternalMod.ml:53:13>>*/ _g_ = 0;
+    if(_h_ >= 0){
+     var i = _g_;
+     for(;;){
+       /*<<camlinternalMod.ml:55:30>>*/  /*<<camlinternalMod.ml:55:30>>*/ var
+       shape = caml_check_bound(comps$0, i)[1 + i];
+      if(typeof shape === "number")
+       switch(shape){
+         case 0:
+          let i$1 = i;
+          var
+           fn =
+             function(x){
+               /*<<camlinternalMod.ml:28:9>>*/  /*<<camlinternalMod.ml:28:38>>*/ var
+               fn = modu[1 + i$1];
+              if(fn$0 === fn)
+                /*<<camlinternalMod.ml:30:11>>*/ throw  /*<<camlinternalMod.ml:30:11>>*/ caml_maybe_attach_backtrace
+                      ([0, Stdlib[15], loc], 1);
+               /*<<camlinternalMod.ml:32:11>>*/ return  /*<<camlinternalMod.ml:32:11>>*/ caml_call1
+                      (fn, x);
+              /*<<camlinternalMod.ml:32:16>>*/ };
+          let fn$0 = fn;
+          var init = fn;
+          break;
+         case 1:
+          var l = [];
+          let l$0 = l, i$0 = i;
+          runtime.caml_update_dummy
+           (l,
+            [246,
+             function(param){
+               /*<<camlinternalMod.ml:37:28>>*/  /*<<camlinternalMod.ml:37:28>>*/ var
+               l = modu[1 + i$0];
+              if(l$0 === l)
+                /*<<camlinternalMod.ml:39:13>>*/ throw  /*<<camlinternalMod.ml:39:13>>*/ caml_maybe_attach_backtrace
+                      ([0, Stdlib[15], loc], 1);
+              var _j_ = caml_obj_tag(l);
+              if(250 === _j_) return l[1];
+              if(246 !== _j_ && 244 !== _j_)
+                /*<<camlinternalMod.ml:41:13>>*/ return l;
+               /*<<camlinternalMod.ml:41:13>>*/ return  /*<<camlinternalMod.ml:41:13>>*/ caml_call1
+                      (CamlinternalLazy[2], l);
+             }]);
+          var init = l;
+          break;
+         default:
+          var
+           init =
+              /*<<camlinternalMod.ml:44:16>>*/ caml_call1
+              (CamlinternalOO[21], loc);
+       }
+      else if(0 === shape[0])
+       var comps = shape[1], init = init_mod_block(loc, comps);
+      else
+       var v = shape[1], init = v;
+       /*<<camlinternalMod.ml:49:2>>*/ modu[1 + i] = init;
+       /*<<camlinternalMod.ml:55:4>>*/  /*<<camlinternalMod.ml:55:4>>*/ var
+       _i_ = i + 1 | 0;
+      if(_h_ === i) break;
+      i = _i_;
+     }
+    }
+     /*<<camlinternalMod.ml:57:2>>*/ return modu;
+    /*<<camlinternalMod.ml:57:6>>*/ }
+   function init_mod(loc, shape){
+     /*<<camlinternalMod.ml:60:2>>*/ if
+     (typeof shape !== "number" && 0 === shape[0]){
+     var comps = shape[1];
+      /*<<camlinternalMod.ml:62:5>>*/ return init_mod_block(loc, comps);
+    }
+     /*<<camlinternalMod.ml:63:9>>*/ return  /*<<camlinternalMod.ml:63:9>>*/ caml_call1
+            (Stdlib[2], cst_CamlinternalMod_init_mod_n);
+    /*<<camlinternalMod.ml:63:58>>*/ }
+   function update_mod_block(comps$0, modu, n){
+     /*<<camlinternalMod.ml:81:2>>*/ if
+     (0 ===  /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag(n)
+      && comps$0.length - 1 <= n.length - 1){
+      /*<<camlinternalMod.ml:82:2>>*/ var
+      _e_ = comps$0.length - 2 | 0,
+       /*<<camlinternalMod.ml:82:2>>*/ _d_ = 0;
+     if(_e_ >= 0){
+      var i = _d_;
+      for(;;){
+        /*<<camlinternalMod.ml:83:35>>*/ var
+         /*<<camlinternalMod.ml:83:35>>*/ n$0 = n[1 + i],
+         /*<<camlinternalMod.ml:83:25>>*/ shape =
+          caml_check_bound(comps$0, i)[1 + i];
+       a:
+       if(typeof shape === "number"){
+        if(2 === shape){
+         if
+          (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
+           && 3 === n$0.length - 1){
+           /*<<camlinternalMod.ml:73:14>>*/ var
+            /*<<camlinternalMod.ml:73:14>>*/ cl = modu[1 + i],
+           j = 0;
+          for(;;){
+            /*<<camlinternalMod.ml:75:7>>*/ cl[1 + j] = n$0[1 + j];
+            /*<<camlinternalMod.ml:75:7>>*/  /*<<camlinternalMod.ml:75:7>>*/ var
+            _c_ = j + 1 | 0;
+           if(2 === j) break;
+           j = _c_;
+          }
+          break a;
+         }
+          /*<<camlinternalMod.ml:72:5>>*/ throw  /*<<camlinternalMod.ml:72:5>>*/ caml_maybe_attach_backtrace
+                ([0, Assert_failure, _a_], 1);
+        }
+         /*<<camlinternalMod.ml:68:5>>*/ modu[1 + i] = n$0;
+       }
+       else if(0 === shape[0]){
+        var comps = shape[1];
+         /*<<camlinternalMod.ml:78:5>>*/ update_mod_block
+         (comps, modu[1 + i], n$0);
+       }
+        /*<<camlinternalMod.ml:83:4>>*/  /*<<camlinternalMod.ml:83:4>>*/ var
+        _f_ = i + 1 | 0;
+       if(_e_ === i) break;
+       i = _f_;
+      }
+     }
+     return 0;
+    }
+     /*<<camlinternalMod.ml:81:2>>*/ throw  /*<<camlinternalMod.ml:81:2>>*/ caml_maybe_attach_backtrace
+           ([0, Assert_failure, _b_], 1);
+    /*<<camlinternalMod.ml:84:6>>*/ }
+   function update_mod(shape, o, n){
+     /*<<camlinternalMod.ml:87:2>>*/ if
+     (typeof shape !== "number" && 0 === shape[0]){
+     var comps = shape[1];
+      /*<<camlinternalMod.ml:89:5>>*/ return update_mod_block(comps, o, n);
+    }
+     /*<<camlinternalMod.ml:90:9>>*/ return  /*<<camlinternalMod.ml:90:9>>*/ caml_call1
+            (Stdlib[2], cst_CamlinternalMod_update_mod);
+    /*<<camlinternalMod.ml:90:60>>*/ }
+   var CamlinternalMod = [0, init_mod, update_mod];
+   runtime.caml_register_global(8, CamlinternalMod, "CamlinternalMod");
+   return;
+   /*<<?>>*/ }
+  (globalThis));
+
+//# unitInfo: Provides: Stdlib__Dynarray
+//# unitInfo: Requires: CamlinternalOO, Stdlib, Stdlib__Array, Stdlib__Obj, Stdlib__Printf, Stdlib__Seq, Stdlib__Sys
+(function
+  (globalThis){
+   "use strict";
+   var
+    runtime = globalThis.jsoo_runtime,
+    cst_requested = " requested",
+    cst = "..",
+    cst_index = ": index ",
+    cst_Dynarray = "Dynarray.",
+    cst_append$1 = "append",
+    cst_blit$1 = "blit",
+    cst_compare$1 = "compare",
+    cst_dynarray_ml = "dynarray.ml",
+    cst_ensure_capacity$0 = "ensure_capacity",
+    cst_equal$1 = "equal",
+    caml_array_make = runtime.caml_array_make,
+    caml_check_bound = runtime.caml_check_bound,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_obj_tag = runtime.caml_obj_tag,
+    caml_wrap_exception = runtime.caml_wrap_exception;
+    /*<<?>>*/ function caml_call1(f, a0){
+    return (f.l >= 0 ? f.l : f.l = f.length) == 1
+            ? f(a0)
+            : runtime.caml_call_gen(f, [a0]);
+   }
+    /*<<?>>*/ function caml_call2(f, a0, a1){
+    return (f.l >= 0 ? f.l : f.l = f.length) == 2
+            ? f(a0, a1)
+            : runtime.caml_call_gen(f, [a0, a1]);
+   }
+    /*<<?>>*/ function caml_call3(f, a0, a1, a2){
+    return (f.l >= 0 ? f.l : f.l = f.length) == 3
+            ? f(a0, a1, a2)
+            : runtime.caml_call_gen(f, [a0, a1, a2]);
+   }
+    /*<<?>>*/ function caml_call4(f, a0, a1, a2, a3){
+    return (f.l >= 0 ? f.l : f.l = f.length) == 4
+            ? f(a0, a1, a2, a3)
+            : runtime.caml_call_gen(f, [a0, a1, a2, a3]);
+   }
+    /*<<?>>*/ function caml_call5(f, a0, a1, a2, a3, a4){
+    return (f.l >= 0 ? f.l : f.l = f.length) == 5
+            ? f(a0, a1, a2, a3, a4)
+            : runtime.caml_call_gen(f, [a0, a1, a2, a3, a4]);
+   }
+   var
+    global_data = runtime.caml_get_global_data(),
+    f$1 = cst_ensure_capacity$0,
+    f$0 = "get_last",
+    f = "get",
+    invalid_state_description =
+      "Invalid dynarray (unsynchronized concurrent length change)",
+    Stdlib_Array = global_data.Stdlib__Array,
+    Stdlib = global_data.Stdlib,
+    Stdlib_Printf = global_data.Stdlib__Printf,
+    Stdlib_Seq = global_data.Stdlib__Seq,
+    Stdlib_Sys = global_data.Stdlib__Sys,
+    Assert_failure = global_data.Assert_failure,
+    Stdlib_Obj = global_data.Stdlib__Obj,
+    CamlinternalOO = global_data.CamlinternalOO,
+    _a_ = [0, 0];
+   function copy(a, dummy){
+     /*<<dynarray.ml:245:6>>*/  /*<<dynarray.ml:245:6>>*/ var
+     _aH_ = Stdlib_Obj[17];
+    if( /*<<dynarray.ml:245:14>>*/ caml_obj_tag(a) !== _aH_)
+      /*<<dynarray.ml:246:8>>*/ return  /*<<dynarray.ml:246:8>>*/ caml_call1
+             (Stdlib_Array[7], a);
+     /*<<dynarray.ml:249:18>>*/ var
+     n = a.length - 1,
+      /*<<dynarray.ml:249:18>>*/ arr =
+        /*<<dynarray.ml:249:18>>*/ caml_array_make(n, dummy),
+      /*<<dynarray.ml:250:8>>*/ _aJ_ = n - 1 | 0,
+      /*<<dynarray.ml:249:18>>*/ _aI_ = 0;
+    if(_aJ_ >= 0){
+     var i = _aI_;
+     for(;;){
+       /*<<dynarray.ml:252:20>>*/  /*<<dynarray.ml:252:20>>*/ var
+       v = a[1 + i];
+       /*<<dynarray.ml:251:10>>*/ arr[1 + i] = v;
+       /*<<dynarray.ml:251:10>>*/  /*<<dynarray.ml:251:10>>*/ var
+       _aK_ = i + 1 | 0;
+      if(_aJ_ === i) break;
+      i = _aK_;
+     }
+    }
+     /*<<dynarray.ml:254:8>>*/ return arr;
+    /*<<dynarray.ml:255:9>>*/ }
+   function prefix(arr, n){
+     /*<<dynarray.ml:318:6>>*/ return  /*<<dynarray.ml:318:6>>*/ caml_call3
+            (Stdlib_Array[6], arr, 0, n);
+    /*<<dynarray.ml:318:23>>*/ }
+   function extend(arr, length, dummy, new_capacity){
+     /*<<dynarray.ml:323:6>>*/  /*<<dynarray.ml:323:20>>*/ var
+     new_arr =
+        /*<<dynarray.ml:323:20>>*/ caml_array_make(new_capacity, dummy);
+     /*<<dynarray.ml:324:6>>*/  /*<<dynarray.ml:324:6>>*/ caml_call5
+     (Stdlib_Array[9], arr, 0, new_arr, 0, length);
+     /*<<dynarray.ml:324:6>>*/ return new_arr;
+    /*<<dynarray.ml:325:13>>*/ }
+    /*<<dynarray.ml:210:12>>*/ var
+     /*<<dynarray.ml:210:12>>*/ r = [0, 0],
+    cst_to_seq_rev = "to_seq_rev",
+    cst_to_seq = "to_seq",
+    cst_to_list = "to_list",
+    cst_to_array = "to_array",
+    cst_compare = cst_compare$1,
+    cst_compare$0 = cst_compare$1,
+    cst_equal = cst_equal$1,
+    cst_equal$0 = cst_equal$1,
+    cst_find_mapi = "find_mapi",
+    cst_find_map = "find_map",
+    cst_find_index = "find_index",
+    cst_find_opt = "find_opt",
+    cst_memq = "memq",
+    cst_mem = "mem",
+    cst_filter_map = "filter_map",
+    cst_filter = "filter",
+    cst_for_all = "for_all",
+    cst_exists = "exists",
+    cst_fold_right = "fold_right",
+    cst_fold_left = "fold_left",
+    cst_mapi = "mapi",
+    cst_map = "map",
+    cst_iteri = "iteri",
+    cst_iter = "iter",
+    cst_append$0 = cst_append$1,
+    cst_append = cst_append$1,
+    _r_ =
+      [0,
+       [11, "Dynarray.blit: invalid blit length (", [4, 0, 0, 0, [12, 41, 0]]],
+       "Dynarray.blit: invalid blit length (%d)"],
+    _s_ =
+      [0,
+       [11,
+        "Dynarray.blit: invalid source region (",
+        [4,
+         0,
+         0,
+         0,
+         [11,
+          cst,
+          [4,
+           0,
+           0,
+           0,
+           [11, ") in source dynarray of length ", [4, 0, 0, 0, 0]]]]]],
+       "Dynarray.blit: invalid source region (%d..%d) in source dynarray of length %d"],
+    _t_ =
+      [0,
+       [11,
+        "Dynarray.blit: invalid target region (",
+        [4,
+         0,
+         0,
+         0,
+         [11,
+          cst,
+          [4,
+           0,
+           0,
+           0,
+           [11, ") in target dynarray of length ", [4, 0, 0, 0, 0]]]]]],
+       "Dynarray.blit: invalid target region (%d..%d) in target dynarray of length %d"],
+    cst_blit = cst_blit$1,
+    cst_blit$0 = cst_blit$1,
+    cst_set_capacity = "set_capacity",
+    cst_ensure_capacity = cst_ensure_capacity$0,
+    _q_ = [0, cst_dynarray_ml, 606, 4],
+    _p_ = [0, cst_dynarray_ml, 611, 4],
+    _o_ = [0, cst_dynarray_ml, 612, 4],
+    cst_truncate = "truncate",
+    cst_set = "set",
+    cst_init = "init",
+    cst_make = "make",
+    _n_ =
+      [0,
+       [11, cst_Dynarray, [2, 0, [11, ": empty array", 0]]],
+       "Dynarray.%s: empty array"],
+    _m_ =
+      [0,
+       [11,
+        cst_Dynarray,
+        [2,
+         0,
+         [11,
+          ": a length change from ",
+          [4,
+           0,
+           0,
+           0,
+           [11, " to ", [4, 0, 0, 0, [11, " occurred during iteration", 0]]]]]]],
+       "Dynarray.%s: a length change from %d to %d occurred during iteration"],
+    _l_ =
+      [0,
+       [2,
+        0,
+        [11, ": length ", [4, 0, 0, 0, [11, " > capacity ", [4, 0, 0, 0, 0]]]]],
+       "%s: length %d > capacity %d"],
+    _k_ =
+      [0,
+       [2,
+        0,
+        [11,
+         ": missing element at position ",
+         [4, 0, 0, 0, [11, " < length ", [4, 0, 0, 0, 0]]]]],
+       "%s: missing element at position %d < length %d"],
+    _j_ =
+      [0,
+       [11,
+        cst_Dynarray,
+        [2,
+         0,
+         [11,
+          ": cannot grow to requested length ",
+          [4,
+           0,
+           0,
+           0,
+           [11, " (max_array_length is ", [4, 0, 0, 0, [12, 41, 0]]]]]]],
+       "Dynarray.%s: cannot grow to requested length %d (max_array_length is %d)"],
+    _i_ =
+      [0,
+       [11,
+        cst_Dynarray,
+        [2,
+         0,
+         [11, ": negative capacity ", [4, 0, 0, 0, [11, cst_requested, 0]]]]],
+       "Dynarray.%s: negative capacity %d requested"],
+    _h_ =
+      [0,
+       [11,
+        cst_Dynarray,
+        [2,
+         0,
+         [11, ": negative length ", [4, 0, 0, 0, [11, cst_requested, 0]]]]],
+       "Dynarray.%s: negative length %d requested"],
+    _f_ =
+      [0,
+       [11,
+        cst_Dynarray,
+        [2,
+         0,
+         [11,
+          cst_index,
+          [4, 0, 0, 0, [11, " out of bounds (empty dynarray)", 0]]]]],
+       "Dynarray.%s: index %d out of bounds (empty dynarray)"],
+    _g_ =
+      [0,
+       [11,
+        cst_Dynarray,
+        [2,
+         0,
+         [11,
+          cst_index,
+          [4, 0, 0, 0, [11, " out of bounds (0..", [4, 0, 0, 0, [12, 41, 0]]]]]]],
+       "Dynarray.%s: index %d out of bounds (0..%d)"],
+    _d_ = [0, cst_dynarray_ml, 289, 13],
+    _e_ = [0, cst_dynarray_ml, 299, 8],
+    cst_x = "x";
+   if(! _a_[1]){
+    var
+     _b_ = caml_call1(CamlinternalOO[16], 0),
+     _c_ = caml_call2(CamlinternalOO[3], _b_, cst_x);
+    caml_call1(CamlinternalOO[17], _b_);
+    _a_[1] =
+     function(_aF_){
+      var _aG_ = caml_call2(CamlinternalOO[24], 0, _b_);
+      _aG_[1 + _c_] = _aF_[2];
+      return _aG_;
+     };
+   }
+   var dummy = caml_call1(_a_[1], [0, 0, r]);
+   r[1] = [0, dummy];
+   function index_out_of_bounds(f, i, length){
+     /*<<dynarray.ml:350:4>>*/ return 0 === length
+            ?  /*<<dynarray.ml:351:6>>*/ caml_call4
+              (Stdlib_Printf[10], Stdlib[1], _f_, f, i)
+            :  /*<<dynarray.ml:355:6>>*/ caml_call5
+              (Stdlib_Printf[10], Stdlib[1], _g_, f, i, length - 1 | 0);
+    /*<<dynarray.ml:357:24>>*/ }
+   function negative_length_requested(f, n){
+     /*<<dynarray.ml:360:4>>*/ return  /*<<dynarray.ml:360:4>>*/ caml_call4
+            (Stdlib_Printf[10], Stdlib[1], _h_, f, n);
+    /*<<dynarray.ml:362:9>>*/ }
+   function negative_capacity_requested(f, n){
+     /*<<dynarray.ml:365:4>>*/ return  /*<<dynarray.ml:365:4>>*/ caml_call4
+            (Stdlib_Printf[10], Stdlib[1], _i_, f, n);
+    /*<<dynarray.ml:367:9>>*/ }
+   function missing_element(i, length){
+     /*<<dynarray.ml:384:4>>*/ return  /*<<dynarray.ml:384:4>>*/ caml_call5
+            (Stdlib_Printf[10],
+             Stdlib[1],
+             _k_,
+             invalid_state_description,
+             i,
+             length);
+    /*<<dynarray.ml:387:14>>*/ }
+   function check_same_length(f, param, expected){
+     /*<<dynarray.ml:419:2>>*/ var
+      /*<<dynarray.ml:419:2>>*/ length_a = param[1],
+     _aE_ = expected !== length_a ? 1 : 0;
+    return _aE_
+            ?  /*<<dynarray.ml:396:4>>*/ caml_call5
+              (Stdlib_Printf[10], Stdlib[1], _m_, f, expected, length_a)
+            : _aE_;
+   }
+   function check_valid_length(length, arr){
+     /*<<dynarray.ml:429:2>>*/ var
+     capacity = arr.length - 1,
+     _aD_ = capacity < length ? 1 : 0;
+    return _aD_
+            ?  /*<<dynarray.ml:390:4>>*/ caml_call5
+              (Stdlib_Printf[10],
+               Stdlib[1],
+               _l_,
+               invalid_state_description,
+               length,
+               capacity)
+            : _aD_;
+    /*<<dynarray.ml:431:42>>*/ }
+   function unsafe_get(arr, dummy, i, length){
+     /*<<dynarray.ml:438:2>>*/  /*<<dynarray.ml:438:10>>*/ var v = arr[1 + i];
+     /*<<dynarray.ml:439:5>>*/ return v === dummy
+            ? missing_element(i, length)
+            : v;
+    /*<<dynarray.ml:441:25>>*/ }
+   function create(param){
+     /*<<dynarray.ml:446:2>>*/ return [0, 0, [0], dummy];
+    /*<<dynarray.ml:451:3>>*/ }
+   function make(n, x){
+     /*<<dynarray.ml:454:2>>*/ if(n < 0)
+      /*<<dynarray.ml:454:16>>*/ negative_length_requested(cst_make, n);
+     /*<<dynarray.ml:236:6>>*/  /*<<dynarray.ml:236:6>>*/ var
+     _aC_ = Stdlib_Obj[16];
+    if( /*<<dynarray.ml:236:14>>*/ caml_obj_tag(x) !== _aC_)
+     var arr$0 =  /*<<dynarray.ml:237:8>>*/ caml_array_make(n, x);
+    else{
+      /*<<dynarray.ml:239:18>>*/  /*<<dynarray.ml:239:18>>*/ var
+      arr =  /*<<dynarray.ml:239:18>>*/ caml_array_make(n, dummy);
+      /*<<dynarray.ml:240:8>>*/  /*<<dynarray.ml:240:8>>*/ caml_call4
+      (Stdlib_Array[8], arr, 0, n, x);
+     var arr$0 = arr;
+    }
+     /*<<dynarray.ml:457:7>>*/ return [0, n, arr$0, dummy];
+    /*<<dynarray.ml:461:3>>*/ }
+   function init(n, f){
+     /*<<dynarray.ml:464:2>>*/ if(n < 0)
+      /*<<dynarray.ml:464:16>>*/ negative_length_requested(cst_init, n);
+     /*<<dynarray.ml:263:16>>*/ var
+      /*<<dynarray.ml:263:16>>*/ arr =
+        /*<<dynarray.ml:263:16>>*/ caml_array_make(n, dummy),
+      /*<<dynarray.ml:264:6>>*/ _aA_ = n - 1 | 0,
+      /*<<dynarray.ml:263:16>>*/ _az_ = 0;
+    if(_aA_ >= 0){
+     var i = _az_;
+     for(;;){
+       /*<<dynarray.ml:265:39>>*/  /*<<dynarray.ml:265:39>>*/ var
+       v =  /*<<dynarray.ml:265:39>>*/ caml_call1(f, i);
+       /*<<dynarray.ml:265:8>>*/ arr[1 + i] = v;
+       /*<<dynarray.ml:265:8>>*/  /*<<dynarray.ml:265:8>>*/ var
+       _aB_ = i + 1 | 0;
+      if(_aA_ === i) break;
+      i = _aB_;
+     }
+    }
+     /*<<dynarray.ml:467:7>>*/ return [0, n, arr, dummy];
+    /*<<dynarray.ml:471:3>>*/ }
+   function get(a, i){
+     /*<<dynarray.ml:479:10>>*/ var
+      /*<<dynarray.ml:479:10>>*/ v = caml_check_bound(a[2], i)[1 + i],
+      /*<<dynarray.ml:480:2>>*/ dummy = a[3];
+     /*<<dynarray.ml:480:5>>*/ if(v !== dummy)
+      /*<<dynarray.ml:232:4>>*/ return v;
+    var length = a[1];
+    return i < length
+            ? missing_element(i, length)
+            : index_out_of_bounds(f, i, length);
+   }
+   function set(param, i, x){
+     /*<<dynarray.ml:485:2>>*/ var
+      /*<<dynarray.ml:485:2>>*/ length = param[1],
+     arr = param[2];
+    return length <= i
+            ? index_out_of_bounds(cst_set, i, length)
+            : (caml_check_bound(arr, i)[1 + i] = x, 0);
+   }
+   function length(param){ /*<<dynarray.ml:489:22>>*/ return param[1];}
+   function is_empty(param){ /*<<?>>*/ return 0 === param[1] ? 1 : 0;}
+   function copy$0(param){
+    var length = param[1], arr = param[2], dummy = param[3];
+     /*<<dynarray.ml:494:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:497:12>>*/  /*<<dynarray.ml:497:12>>*/ var
+     arr$0 = prefix(arr, length);
+     /*<<dynarray.ml:498:7>>*/ return [0, length, arr$0, dummy];
+   }
+   function get_last(param){
+     /*<<dynarray.ml:501:2>>*/ var
+      /*<<dynarray.ml:501:2>>*/ length = param[1],
+     arr = param[2],
+     dummy = param[3];
+     /*<<dynarray.ml:502:2>>*/ check_valid_length(length, arr);
+    if(0 === length)
+      /*<<dynarray.ml:410:4>>*/  /*<<dynarray.ml:410:4>>*/ caml_call3
+      (Stdlib_Printf[10], Stdlib[1], _n_, f$0);
+     /*<<dynarray.ml:504:21>>*/ return unsafe_get
+            (arr, dummy, length - 1 | 0, length);
+   }
+   function find_last(param){
+     /*<<dynarray.ml:509:2>>*/ var
+      /*<<dynarray.ml:509:2>>*/ length = param[1],
+     arr = param[2],
+     dummy = param[3];
+     /*<<dynarray.ml:510:2>>*/ check_valid_length(length, arr);
+    return 0 === length
+            ? 0
+            : [0, unsafe_get(arr, dummy, length - 1 | 0, length)];
+   }
+   function pop_last(a){
+     /*<<dynarray.ml:520:2>>*/ var
+      /*<<dynarray.ml:520:2>>*/ length = a[1],
+     arr = a[2],
+     dummy = a[3];
+     /*<<dynarray.ml:521:2>>*/ check_valid_length(length, arr);
+    if(0 === length)
+      /*<<dynarray.ml:523:21>>*/ throw  /*<<dynarray.ml:523:21>>*/ caml_maybe_attach_backtrace
+            (Stdlib[8], 1);
+     /*<<dynarray.ml:524:2>>*/ var
+      /*<<dynarray.ml:524:2>>*/ last = length - 1 | 0,
+      /*<<dynarray.ml:526:10>>*/ v = unsafe_get(arr, dummy, last, length);
+     /*<<dynarray.ml:527:2>>*/ arr[1 + last] = dummy;
+    a[1] = last;
+     /*<<dynarray.ml:529:2>>*/ return v;
+   }
+   function pop_last_opt(a){
+     /*<<dynarray.ml:532:2>>*/ try{
+      /*<<dynarray.ml:532:8>>*/  /*<<dynarray.ml:532:8>>*/ var
+      x = pop_last(a);
+    }
+    catch(_ay_){
+     var _ax_ = caml_wrap_exception(_ay_);
+     if(_ax_ === Stdlib[8])  /*<<dynarray.ml:533:27>>*/ return 0;
+     throw caml_maybe_attach_backtrace(_ax_, 0);
+    }
+     /*<<dynarray.ml:534:9>>*/ return [0, x];
+    /*<<dynarray.ml:534:15>>*/ }
+   function remove_last(a){
+     /*<<dynarray.ml:537:2>>*/ var
+      /*<<dynarray.ml:537:2>>*/ last = a[1] - 1 | 0,
+     _av_ = 0 <= last ? 1 : 0;
+    if(_av_){
+     a[1] = last;
+     var dummy = a[3];
+      /*<<dynarray.ml:540:4>>*/ caml_check_bound(a[2], last)[1 + last] = dummy;
+     var _aw_ = 0;
+    }
+    else
+     var _aw_ = _av_;
+     /*<<dynarray.ml:540:4>>*/ return _aw_;
+   }
+   function truncate(a, n){
+     /*<<?>>*/ if(n < 0)
+      /*<<dynarray.ml:544:16>>*/ negative_length_requested(cst_truncate, n);
+    var length = a[1], arr = a[2], dummy = a[3];
+    return length <= n
+            ? 0
+            : (a
+               [1]
+              = n,
+               /*<<dynarray.ml:549:34>>*/ caml_call4
+               (Stdlib_Array[8], arr, n, length - n | 0, dummy));
+   }
+   function clear(a){
+     /*<<dynarray.ml:552:14>>*/ return truncate(a, 0);
+    /*<<dynarray.ml:552:26>>*/ }
+   function capacity(param){ /*<<?>>*/ return param[2].length - 1;}
+   function ensure_capacity(a, capacity_request){
+     /*<<dynarray.ml:578:2>>*/ var
+      /*<<dynarray.ml:578:2>>*/ arr = a[2],
+      /*<<dynarray.ml:579:2>>*/ cur_capacity = arr.length - 1;
+     /*<<dynarray.ml:580:2>>*/ if(0 > capacity_request)
+      /*<<dynarray.ml:581:4>>*/ return negative_capacity_requested
+             (cst_ensure_capacity, capacity_request);
+    if(capacity_request <= cur_capacity)  /*<<dynarray.ml:586:4>>*/ return 0;
+    if(Stdlib_Sys[13] < capacity_request)
+      /*<<dynarray.ml:370:4>>*/  /*<<dynarray.ml:370:4>>*/ caml_call5
+      (Stdlib_Printf[10],
+       Stdlib[1],
+       _j_,
+       f$1,
+       capacity_request,
+       Stdlib_Sys[13]);
+     /*<<dynarray.ml:575:6>>*/ var
+     n =
+       512 < cur_capacity
+        ? cur_capacity + (cur_capacity / 2 | 0) | 0
+        : cur_capacity * 2 | 0,
+     _as_ = Stdlib_Sys[13],
+      /*<<dynarray.ml:575:6>>*/ _at_ =
+        /*<<dynarray.ml:575:6>>*/ caml_call2(Stdlib[17], 8, n),
+      /*<<dynarray.ml:575:2>>*/ _au_ =
+        /*<<dynarray.ml:575:2>>*/ caml_call2(Stdlib[16], _at_, _as_),
+      /*<<dynarray.ml:605:6>>*/ new_capacity =
+        /*<<dynarray.ml:605:6>>*/ caml_call2
+        (Stdlib[17], _au_, capacity_request);
+     /*<<dynarray.ml:606:4>>*/ if(0 >= new_capacity)
+      /*<<dynarray.ml:606:4>>*/ throw  /*<<dynarray.ml:606:4>>*/ caml_maybe_attach_backtrace
+            ([0, Assert_failure, _q_], 1);
+     /*<<dynarray.ml:608:6>>*/  /*<<dynarray.ml:608:6>>*/ var
+     new_arr = extend(arr, a[1], a[3], new_capacity);
+    a[2] = new_arr;
+    if(0 > capacity_request)
+      /*<<dynarray.ml:611:4>>*/ throw  /*<<dynarray.ml:611:4>>*/ caml_maybe_attach_backtrace
+            ([0, Assert_failure, _p_], 1);
+    if(capacity_request <= new_arr.length - 1) return 0;
+     /*<<dynarray.ml:612:4>>*/ throw  /*<<dynarray.ml:612:4>>*/ caml_maybe_attach_backtrace
+           ([0, Assert_failure, _o_], 1);
+   }
+   function ensure_extra_capacity(a, extra_capacity_request){
+     /*<<dynarray.ml:616:2>>*/ return ensure_capacity
+            (a, a[1] + extra_capacity_request | 0);
+    /*<<dynarray.ml:616:55>>*/ }
+   function fit_capacity(a){
+     /*<<?>>*/ return a[2].length - 1 === a[1]
+            ? 0
+            : (a[2] = prefix(a[2], a[1]), 0);
+   }
+   function set_capacity(a, n){
+     /*<<?>>*/ if(n < 0)
+      /*<<dynarray.ml:625:4>>*/ negative_capacity_requested
+      (cst_set_capacity, n);
+     /*<<dynarray.ml:627:2>>*/ var
+     arr = a[2],
+      /*<<dynarray.ml:627:2>>*/ cur_capacity = arr.length - 1;
+    if(n < cur_capacity){
+     a[1] =  /*<<dynarray.ml:629:16>>*/ caml_call2(Stdlib[16], a[1], n);
+     a[2] = prefix(arr, n);
+     return 0;
+    }
+    var
+     _aq_ = cur_capacity < n ? 1 : 0,
+     _ar_ = _aq_ ? (a[2] = extend(arr, a[1], a[3], n), 0) : _aq_;
+    return _ar_;
+   }
+   function reset(param){ /*<<?>>*/ param[1] = 0; param[2] = [0]; return 0;}
+   function add_last_if_room(a, v){
+     /*<<dynarray.ml:657:2>>*/ var
+      /*<<dynarray.ml:657:2>>*/ length = a[1],
+     arr = a[2];
+    return arr.length - 1 <= length
+            ? 0
+            : (a[1] = length + 1 | 0, arr[1 + length] = v, 1);
+   }
+   function add_last(a, x){
+     /*<<dynarray.ml:668:2>>*/ if(add_last_if_room(a, x))
+      /*<<dynarray.ml:668:31>>*/ return 0;
+     /*<<dynarray.ml:672:6>>*/ for(;;){
+      /*<<dynarray.ml:672:6>>*/ ensure_extra_capacity(a, 1);
+      /*<<dynarray.ml:673:13>>*/  /*<<dynarray.ml:673:13>>*/ var
+      _ap_ = 1 - add_last_if_room(a, x);
+     if(! _ap_)  /*<<dynarray.ml:673:13>>*/ return _ap_;
+    }
+    /*<<dynarray.ml:676:5>>*/ }
+   function append_list(a, li){
+     /*<<dynarray.ml:679:2>>*/ var li$0 = li;
+     /*<<dynarray.ml:679:2>>*/ for(;;){
+     if(! li$0)  /*<<dynarray.ml:680:10>>*/ return 0;
+     var xs = li$0[2], x = li$0[1];
+      /*<<dynarray.ml:681:15>>*/ add_last(a, x);
+     li$0 = xs;
+    }
+    /*<<dynarray.ml:681:45>>*/ }
+   function append_iter(a, iter, b){
+     /*<<dynarray.ml:684:2>>*/ return  /*<<dynarray.ml:684:2>>*/ caml_call2
+            (iter,
+             function(x){
+               /*<<dynarray.ml:684:17>>*/ return add_last(a, x);
+              /*<<dynarray.ml:684:29>>*/ },
+             b);
+    /*<<dynarray.ml:684:32>>*/ }
+   function append_seq(a, seq){
+     /*<<dynarray.ml:687:2>>*/ return  /*<<dynarray.ml:687:2>>*/ caml_call2
+            (Stdlib_Seq[4],
+             function(x){
+               /*<<dynarray.ml:687:21>>*/ return add_last(a, x);
+              /*<<dynarray.ml:687:33>>*/ },
+             seq);
+    /*<<dynarray.ml:687:38>>*/ }
+   function blit_assume_room
+   (src, src_pos, src_length, dst, dst_pos, dst_length, blit_length){
+     /*<<dynarray.ml:701:2>>*/ var
+      /*<<dynarray.ml:701:2>>*/ src_arr = src[2],
+      /*<<dynarray.ml:702:2>>*/ dst_arr = dst[2];
+     /*<<dynarray.ml:703:2>>*/ check_same_length(cst_blit, src, src_length);
+     /*<<dynarray.ml:704:2>>*/ check_same_length(cst_blit$0, dst, dst_length);
+    if(dst_length < (dst_pos + blit_length | 0))
+     dst[1] = dst_pos + blit_length | 0;
+    var dst_dummy = dst[3], src_dummy = src[3];
+    if(src_dummy === dst_dummy)
+      /*<<dynarray.ml:280:8>>*/ return  /*<<dynarray.ml:280:8>>*/ caml_call5
+             (Stdlib_Array[9],
+              src_arr,
+              src_pos,
+              dst_arr,
+              dst_pos,
+              blit_length);
+    var _af_ = blit_length < 0 ? 1 : 0;
+    if(_af_)
+     var _ag_ = _af_;
+    else{
+     var _ak_ = src_pos < 0 ? 1 : 0;
+     if(_ak_)
+      var _ag_ = _ak_;
+     else{
+      var _al_ = (src_pos + blit_length | 0) < 0 ? 1 : 0;
+      if(_al_)
+       var _ag_ = _al_;
+      else{
+       var _am_ = src_arr.length - 1 < (src_pos + blit_length | 0) ? 1 : 0;
+       if(_am_)
+        var _ag_ = _am_;
+       else{
+        var _an_ = dst_pos < 0 ? 1 : 0;
+        if(_an_)
+         var _ag_ = _an_;
+        else
+         var
+          _ao_ = (dst_pos + blit_length | 0) < 0 ? 1 : 0,
+          _ag_ =
+            _ao_ || (dst_arr.length - 1 < (dst_pos + blit_length | 0) ? 1 : 0);
+       }
       }
-     else
-      var clo$0 = clo;
-      /*<<camlinternalOO.ml:601:4>>*/ set_method(table, label, clo$0);
-     i[1]++;
+     }
     }
-    /*<<camlinternalOO.ml:603:6>>*/ }
-   function stats(param){
-     /*<<camlinternalOO.ml:611:2>>*/ return [0,
-            table_count[1],
-            method_count[1],
-            inst_var_count[1]];
-    /*<<camlinternalOO.ml:612:59>>*/ }
-   var
-    CamlinternalOO =
-      [0,
-       public_method_label,
-       new_method,
-       new_variable,
-       new_methods_variables,
-       get_variable,
-       get_variables,
-       get_method_label,
-       get_method_labels,
-       get_method,
-       set_method,
-       set_methods,
-       narrow,
-       widen,
-       add_initializer,
-       dummy_table,
-       create_table,
-       init_class,
-       inherits,
-       make_class,
-       make_class_store,
-       dummy_class,
-       copy,
-       create_object,
-       create_object_opt,
-       run_initializers,
-       run_initializers_opt,
-       create_object_and_run_initiali,
-       lookup_tables,
-       params,
-       stats];
-   runtime.caml_register_global(17, CamlinternalOO, "CamlinternalOO");
-   return;
-   /*<<?>>*/ }
-  (globalThis));
-
-//# unitInfo: Provides: Stdlib__Oo
-//# unitInfo: Requires: CamlinternalOO
-(function
-  (globalThis){
-   "use strict";
-   var
-    runtime = globalThis.jsoo_runtime,
-    global_data = runtime.caml_get_global_data(),
-    CamlinternalOO = global_data.CamlinternalOO,
-    copy = CamlinternalOO[22],
-    new_method = CamlinternalOO[1],
-    public_method_label = CamlinternalOO[1],
-    Stdlib_Oo = [0, copy, new_method, public_method_label];
-   runtime.caml_register_global(1, Stdlib_Oo, "Stdlib__Oo");
-   return;
-   /*<<?>>*/ }
-  (globalThis));
-
-//# unitInfo: Provides: CamlinternalMod
-//# unitInfo: Requires: CamlinternalLazy, CamlinternalOO, Stdlib, Stdlib__Obj
-(function
-  (globalThis){
-   "use strict";
-   var
-    runtime = globalThis.jsoo_runtime,
-    cst_camlinternalMod_ml = "camlinternalMod.ml",
-    caml_check_bound = runtime.caml_check_bound,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_obj_tag = runtime.caml_obj_tag;
-    /*<<?>>*/ function caml_call1(f, a0){
-    return (f.l >= 0 ? f.l : f.l = f.length) == 1
-            ? f(a0)
-            : runtime.caml_call_gen(f, [a0]);
+    if(_ag_)
+      /*<<dynarray.ml:289:13>>*/ throw  /*<<dynarray.ml:289:13>>*/ caml_maybe_attach_backtrace
+            ([0, Assert_failure, _d_], 1);
+    if(src_arr === dst_arr)
+      /*<<dynarray.ml:299:8>>*/ throw  /*<<dynarray.ml:299:8>>*/ caml_maybe_attach_backtrace
+            ([0, Assert_failure, _e_], 1);
+     /*<<dynarray.ml:303:8>>*/ var
+     _ai_ = blit_length - 1 | 0,
+      /*<<dynarray.ml:303:8>>*/ _ah_ = 0;
+    if(_ai_ >= 0){
+     var i = _ah_;
+     for(;;){
+       /*<<dynarray.ml:304:10>>*/ dst_arr[1 + (dst_pos + i | 0)] = src_arr[1 + (src_pos + i | 0)];
+       /*<<dynarray.ml:304:10>>*/  /*<<dynarray.ml:304:10>>*/ var
+       _aj_ = i + 1 | 0;
+      if(_ai_ === i) break;
+      i = _aj_;
+     }
+    }
+    return 0;
    }
-   var
-    global_data = runtime.caml_get_global_data(),
-    Stdlib = global_data.Stdlib,
-    CamlinternalLazy = global_data.CamlinternalLazy,
-    CamlinternalOO = global_data.CamlinternalOO,
-    Assert_failure = global_data.Assert_failure,
-    cst_CamlinternalMod_init_mod_n = "CamlinternalMod.init_mod: not a module",
-    _a_ = [0, cst_camlinternalMod_ml, 72, 5],
-    _b_ = [0, cst_camlinternalMod_ml, 81, 2],
-    cst_CamlinternalMod_update_mod =
-      "CamlinternalMod.update_mod: not a module";
-   function init_mod_block(loc, comps$0){
-     /*<<camlinternalMod.ml:52:2>>*/ var
-     length = comps$0.length - 1,
-      /*<<camlinternalMod.ml:53:13>>*/ modu =
-        /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block(0, length),
-      /*<<camlinternalMod.ml:54:2>>*/ _h_ = length - 1 | 0,
-      /*<<camlinternalMod.ml:53:13>>*/ _g_ = 0;
-    if(_h_ >= 0){
-     var i = _g_;
+   function blit(src, src_pos, dst, dst_pos, len){
+     /*<<dynarray.ml:716:2>>*/ var
+      /*<<dynarray.ml:489:22>>*/ src_length = src[1],
+      /*<<dynarray.ml:489:22>>*/ dst_length = dst[1];
+    if(len < 0)
+      /*<<dynarray.ml:719:4>>*/  /*<<dynarray.ml:719:4>>*/ caml_call3
+      (Stdlib_Printf[10], Stdlib[1], _r_, len);
+    var
+     _ab_ = src_pos < 0 ? 1 : 0,
+     _ac_ = _ab_ || (src_length < (src_pos + len | 0) ? 1 : 0);
+    if(_ac_)
+      /*<<dynarray.ml:723:4>>*/  /*<<dynarray.ml:723:4>>*/ caml_call5
+      (Stdlib_Printf[10],
+       Stdlib[1],
+       _s_,
+       src_pos,
+       src_pos + len | 0,
+       src_length);
+    var
+     _ad_ = dst_pos < 0 ? 1 : 0,
+     _ae_ = _ad_ || (dst_length < dst_pos ? 1 : 0);
+    if(_ae_)
+      /*<<dynarray.ml:728:4>>*/  /*<<dynarray.ml:728:4>>*/ caml_call5
+      (Stdlib_Printf[10],
+       Stdlib[1],
+       _t_,
+       dst_pos,
+       dst_pos + len | 0,
+       dst_length);
+     /*<<dynarray.ml:732:2>>*/ ensure_capacity(dst, dst_pos + len | 0);
+     /*<<dynarray.ml:732:2>>*/ return blit_assume_room
+            (src, src_pos, src_length, dst, dst_pos, dst_length, len);
+    /*<<dynarray.ml:736:7>>*/ }
+   function append_array_if_room(a, src){
+     /*<<dynarray.ml:741:2>>*/ var
+      /*<<dynarray.ml:741:2>>*/ length_a = a[1],
+     arr = a[2],
+      /*<<dynarray.ml:742:2>>*/ length_b = src.length - 1;
+    if(arr.length - 1 < (length_a + length_b | 0))
+      /*<<dynarray.ml:743:49>>*/ return 0;
+    a[1] = length_a + length_b | 0;
+     /*<<dynarray.ml:270:6>>*/ var
+      /*<<dynarray.ml:270:6>>*/ _X_ = Stdlib_Obj[17],
+     src_pos = 0;
+    if( /*<<dynarray.ml:270:14>>*/ caml_obj_tag(src) !== _X_)
+      /*<<dynarray.ml:271:8>>*/  /*<<dynarray.ml:271:8>>*/ caml_call5
+      (Stdlib_Array[9], src, src_pos, arr, length_a, length_b);
+    else{
+      /*<<dynarray.ml:272:11>>*/ var
+      _Z_ = length_b - 1 | 0,
+       /*<<dynarray.ml:272:11>>*/ _Y_ = 0;
+     if(_Z_ >= 0){
+      var i = _Y_;
+      for(;;){
+        /*<<dynarray.ml:274:38>>*/ var
+        ___ = i | 0,
+         /*<<dynarray.ml:274:38>>*/ v = caml_check_bound(src, ___)[1 + ___],
+        _$_ = length_a + i | 0;
+        /*<<dynarray.ml:274:10>>*/ caml_check_bound(arr, _$_)[1 + _$_] = v;
+        /*<<dynarray.ml:274:10>>*/  /*<<dynarray.ml:274:10>>*/ var
+        _aa_ = i + 1 | 0;
+       if(_Z_ === i) break;
+       i = _aa_;
+      }
+     }
+    }
+     /*<<dynarray.ml:772:4>>*/ return 1;
+   }
+   function append_array(a, b){
+     /*<<dynarray.ml:777:2>>*/ if(append_array_if_room(a, b))
+      /*<<dynarray.ml:777:35>>*/ return 0;
+     /*<<dynarray.ml:781:6>>*/ for(;;){
+      /*<<dynarray.ml:781:6>>*/ ensure_extra_capacity(a, b.length - 1);
+      /*<<dynarray.ml:782:13>>*/  /*<<dynarray.ml:782:13>>*/ var
+      _W_ = 1 - append_array_if_room(a, b);
+     if(! _W_)  /*<<dynarray.ml:782:13>>*/ return _W_;
+    }
+    /*<<dynarray.ml:784:31>>*/ }
+   function append_if_room(a, b, length_b){
+     /*<<dynarray.ml:794:2>>*/ var
+      /*<<dynarray.ml:794:2>>*/ length_a = a[1],
+     arr_a = a[2];
+    return arr_a.length - 1 < (length_a + length_b | 0)
+            ? 0
+            : (blit_assume_room
+               (b, 0, length_b, a, length_a, length_a, length_b),
+              check_same_length(cst_append, b, length_b),
+              1);
+   }
+   function append(a, b){
+     /*<<dynarray.ml:808:2>>*/  /*<<dynarray.ml:489:22>>*/ var
+     length_b = b[1];
+     /*<<dynarray.ml:809:5>>*/ if(append_if_room(a, b, length_b))
+      /*<<dynarray.ml:809:39>>*/ return 0;
+     /*<<dynarray.ml:813:6>>*/ for(;;){
+      /*<<dynarray.ml:813:6>>*/ ensure_extra_capacity(a, length_b);
+      /*<<dynarray.ml:820:6>>*/ check_same_length(cst_append$0, b, length_b);
+      /*<<dynarray.ml:821:13>>*/  /*<<dynarray.ml:821:13>>*/ var
+      _V_ = 1 - append_if_room(a, b, length_b);
+     if(! _V_)  /*<<dynarray.ml:821:13>>*/ return _V_;
+    }
+    /*<<dynarray.ml:824:5>>*/ }
+   function iter(f, k, a){
+     /*<<dynarray.ml:844:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:868:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:868:2>>*/ var
+     _T_ = length - 1 | 0,
+      /*<<dynarray.ml:868:2>>*/ _S_ = 0;
+    if(_T_ >= 0){
+     var i = _S_;
      for(;;){
-       /*<<camlinternalMod.ml:55:30>>*/  /*<<camlinternalMod.ml:55:30>>*/ var
-       shape = caml_check_bound(comps$0, i)[1 + i];
-      if(typeof shape === "number")
-       switch(shape){
-         case 0:
-          let i$1 = i;
-          var
-           fn =
-             function(x){
-               /*<<camlinternalMod.ml:28:9>>*/  /*<<camlinternalMod.ml:28:38>>*/ var
-               fn = modu[1 + i$1];
-              if(fn$0 === fn)
-                /*<<camlinternalMod.ml:30:11>>*/ throw  /*<<camlinternalMod.ml:30:11>>*/ caml_maybe_attach_backtrace
-                      ([0, Stdlib[15], loc], 1);
-               /*<<camlinternalMod.ml:32:11>>*/ return  /*<<camlinternalMod.ml:32:11>>*/ caml_call1
-                      (fn, x);
-              /*<<camlinternalMod.ml:32:16>>*/ };
-          let fn$0 = fn;
-          var init = fn;
-          break;
-         case 1:
-          var l = [];
-          let l$0 = l, i$0 = i;
-          runtime.caml_update_dummy
-           (l,
-            [246,
-             function(param){
-               /*<<camlinternalMod.ml:37:28>>*/  /*<<camlinternalMod.ml:37:28>>*/ var
-               l = modu[1 + i$0];
-              if(l$0 === l)
-                /*<<camlinternalMod.ml:39:13>>*/ throw  /*<<camlinternalMod.ml:39:13>>*/ caml_maybe_attach_backtrace
-                      ([0, Stdlib[15], loc], 1);
-              var _j_ = caml_obj_tag(l);
-              if(250 === _j_) return l[1];
-              if(246 !== _j_ && 244 !== _j_)
-                /*<<camlinternalMod.ml:41:13>>*/ return l;
-               /*<<camlinternalMod.ml:41:13>>*/ return  /*<<camlinternalMod.ml:41:13>>*/ caml_call1
-                      (CamlinternalLazy[2], l);
-             }]);
-          var init = l;
-          break;
-         default:
-          var
-           init =
-              /*<<camlinternalMod.ml:44:16>>*/ caml_call1
-              (CamlinternalOO[21], loc);
-       }
-      else if(0 === shape[0])
-       var comps = shape[1], init = init_mod_block(loc, comps);
-      else
-       var v = shape[1], init = v;
-       /*<<camlinternalMod.ml:49:2>>*/ modu[1 + i] = init;
-       /*<<camlinternalMod.ml:55:4>>*/  /*<<camlinternalMod.ml:55:4>>*/ var
-       _i_ = i + 1 | 0;
-      if(_h_ === i) break;
-      i = _i_;
+       /*<<dynarray.ml:870:4>>*/  /*<<dynarray.ml:870:4>>*/ caml_call1
+       (k, unsafe_get(arr, dummy, i, length));
+       /*<<dynarray.ml:870:4>>*/  /*<<dynarray.ml:870:4>>*/ var
+       _U_ = i + 1 | 0;
+      if(_T_ === i) break;
+      i = _U_;
+     }
+    }
+     /*<<dynarray.ml:872:2>>*/ return check_same_length(f, a, length);
+    /*<<dynarray.ml:872:31>>*/ }
+   function iter$0(k, a){
+     /*<<dynarray.ml:875:2>>*/ return iter(cst_iter, k, a);
+    /*<<dynarray.ml:875:18>>*/ }
+   function iteri(k, a){
+     /*<<dynarray.ml:878:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:879:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:879:2>>*/ var
+     _Q_ = length - 1 | 0,
+      /*<<dynarray.ml:879:2>>*/ _P_ = 0;
+    if(_Q_ >= 0){
+     var i = _P_;
+     for(;;){
+       /*<<dynarray.ml:881:4>>*/  /*<<dynarray.ml:881:4>>*/ caml_call2
+       (k, i, unsafe_get(arr, dummy, i, length));
+       /*<<dynarray.ml:881:4>>*/  /*<<dynarray.ml:881:4>>*/ var
+       _R_ = i + 1 | 0;
+      if(_Q_ === i) break;
+      i = _R_;
+     }
+    }
+     /*<<dynarray.ml:883:2>>*/ return check_same_length(cst_iteri, a, length);
+    /*<<dynarray.ml:883:37>>*/ }
+   function map(f, a){
+     /*<<dynarray.ml:886:2>>*/ var length = a[1], arr_in = a[2], dummy = a[3];
+     /*<<dynarray.ml:887:2>>*/ check_valid_length(length, arr_in);
+     /*<<dynarray.ml:888:16>>*/ var
+      /*<<dynarray.ml:888:16>>*/ arr_out =
+        /*<<dynarray.ml:888:16>>*/ caml_array_make(length, dummy),
+      /*<<dynarray.ml:889:2>>*/ _N_ = length - 1 | 0,
+      /*<<dynarray.ml:888:16>>*/ _M_ = 0;
+    if(_N_ >= 0){
+     var i = _M_;
+     for(;;){
+       /*<<dynarray.ml:891:20>>*/  /*<<dynarray.ml:891:20>>*/ var
+       v =
+          /*<<dynarray.ml:891:20>>*/ caml_call1
+          (f, unsafe_get(arr_in, dummy, i, length));
+       /*<<dynarray.ml:890:4>>*/ arr_out[1 + i] = v;
+       /*<<dynarray.ml:890:4>>*/  /*<<dynarray.ml:890:4>>*/ var
+       _O_ = i + 1 | 0;
+      if(_N_ === i) break;
+      i = _O_;
+     }
+    }
+     /*<<dynarray.ml:893:17>>*/  /*<<dynarray.ml:893:17>>*/ var
+     res = [0, length, arr_out, dummy];
+     /*<<dynarray.ml:898:2>>*/ check_same_length(cst_map, a, length);
+     /*<<dynarray.ml:898:2>>*/ return res;
+    /*<<dynarray.ml:899:5>>*/ }
+   function mapi(f, a){
+     /*<<dynarray.ml:902:2>>*/ var length = a[1], arr_in = a[2], dummy = a[3];
+     /*<<dynarray.ml:903:2>>*/ check_valid_length(length, arr_in);
+     /*<<dynarray.ml:904:16>>*/ var
+      /*<<dynarray.ml:904:16>>*/ arr_out =
+        /*<<dynarray.ml:904:16>>*/ caml_array_make(length, dummy),
+      /*<<dynarray.ml:905:2>>*/ _K_ = length - 1 | 0,
+      /*<<dynarray.ml:904:16>>*/ _J_ = 0;
+    if(_K_ >= 0){
+     var i = _J_;
+     for(;;){
+       /*<<dynarray.ml:907:20>>*/  /*<<dynarray.ml:907:20>>*/ var
+       v =
+          /*<<dynarray.ml:907:20>>*/ caml_call2
+          (f, i, unsafe_get(arr_in, dummy, i, length));
+       /*<<dynarray.ml:906:4>>*/ arr_out[1 + i] = v;
+       /*<<dynarray.ml:906:4>>*/  /*<<dynarray.ml:906:4>>*/ var
+       _L_ = i + 1 | 0;
+      if(_K_ === i) break;
+      i = _L_;
+     }
+    }
+     /*<<dynarray.ml:909:17>>*/  /*<<dynarray.ml:909:17>>*/ var
+     res = [0, length, arr_out, dummy];
+     /*<<dynarray.ml:914:2>>*/ check_same_length(cst_mapi, a, length);
+     /*<<dynarray.ml:914:2>>*/ return res;
+    /*<<dynarray.ml:915:5>>*/ }
+   function fold_left(f, acc, a){
+     /*<<dynarray.ml:918:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:919:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:920:10>>*/ var
+      /*<<dynarray.ml:920:10>>*/ r = [0, acc],
+      /*<<dynarray.ml:921:2>>*/ _H_ = length - 1 | 0,
+      /*<<dynarray.ml:920:10>>*/ _G_ = 0;
+    if(_H_ >= 0){
+     var i = _G_;
+     for(;;){
+       /*<<dynarray.ml:922:12>>*/  /*<<dynarray.ml:922:12>>*/ var
+       v = unsafe_get(arr, dummy, i, length);
+      r[1] =  /*<<dynarray.ml:923:9>>*/ caml_call2(f, r[1], v);
+       /*<<dynarray.ml:921:2>>*/  /*<<dynarray.ml:921:2>>*/ var
+       _I_ = i + 1 | 0;
+      if(_H_ === i) break;
+      i = _I_;
+     }
+    }
+     /*<<dynarray.ml:925:2>>*/ check_same_length(cst_fold_left, a, length);
+    return r[1];
+    /*<<dynarray.ml:926:4>>*/ }
+   function fold_right(f, a, acc){
+     /*<<dynarray.ml:929:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:930:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:931:10>>*/ var
+      /*<<dynarray.ml:931:10>>*/ r = [0, acc],
+      /*<<dynarray.ml:931:10>>*/ _E_ = length - 1 | 0;
+    if(_E_ >= 0){
+     var i = _E_;
+     for(;;){
+       /*<<dynarray.ml:933:12>>*/  /*<<dynarray.ml:933:12>>*/ var
+       v = unsafe_get(arr, dummy, i, length);
+      r[1] =  /*<<dynarray.ml:934:9>>*/ caml_call2(f, v, r[1]);
+       /*<<dynarray.ml:931:10>>*/  /*<<dynarray.ml:931:10>>*/ var
+       _F_ = i - 1 | 0;
+      if(0 === i) break;
+      i = _F_;
+     }
+    }
+     /*<<dynarray.ml:936:2>>*/ check_same_length(cst_fold_right, a, length);
+    return r[1];
+    /*<<dynarray.ml:937:4>>*/ }
+   function exists(p, a){
+     /*<<dynarray.ml:940:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:941:2>>*/ check_valid_length(length, arr);
+    var i = 0;
+     /*<<dynarray.ml:943:4>>*/ for(;;){
+     if(i === length)
+      var res = 0;
+     else{
+       /*<<dynarray.ml:945:6>>*/  /*<<dynarray.ml:945:6>>*/ var
+       _D_ =
+          /*<<dynarray.ml:945:6>>*/ caml_call1
+          (p, unsafe_get(arr, dummy, i, length));
+       /*<<dynarray.ml:945:6>>*/ if(! _D_){
+       var i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var res = _D_;
      }
+      /*<<dynarray.ml:949:2>>*/ check_same_length(cst_exists, a, length);
+      /*<<dynarray.ml:949:2>>*/ return res;
     }
-     /*<<camlinternalMod.ml:57:2>>*/ return modu;
-    /*<<camlinternalMod.ml:57:6>>*/ }
-   function init_mod(loc, shape){
-     /*<<camlinternalMod.ml:60:2>>*/ if
-     (typeof shape !== "number" && 0 === shape[0]){
-     var comps = shape[1];
-      /*<<camlinternalMod.ml:62:5>>*/ return init_mod_block(loc, comps);
+    /*<<dynarray.ml:950:5>>*/ }
+   function for_all(p, a){
+     /*<<dynarray.ml:953:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:954:2>>*/ check_valid_length(length, arr);
+    var i = 0;
+     /*<<dynarray.ml:956:4>>*/ for(;;){
+     if(i === length)
+      var res = 1;
+     else{
+       /*<<dynarray.ml:958:6>>*/  /*<<dynarray.ml:958:6>>*/ var
+       _C_ =
+          /*<<dynarray.ml:958:6>>*/ caml_call1
+          (p, unsafe_get(arr, dummy, i, length));
+       /*<<dynarray.ml:958:6>>*/ if(_C_){
+       var i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var res = _C_;
+     }
+      /*<<dynarray.ml:962:2>>*/ check_same_length(cst_for_all, a, length);
+      /*<<dynarray.ml:962:2>>*/ return res;
     }
-     /*<<camlinternalMod.ml:63:9>>*/ return  /*<<camlinternalMod.ml:63:9>>*/ caml_call1
-            (Stdlib[2], cst_CamlinternalMod_init_mod_n);
-    /*<<camlinternalMod.ml:63:58>>*/ }
-   function update_mod_block(comps$0, modu, n){
-     /*<<camlinternalMod.ml:81:2>>*/ if
-     (0 ===  /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag(n)
-      && comps$0.length - 1 <= n.length - 1){
-      /*<<camlinternalMod.ml:82:2>>*/ var
-      _e_ = comps$0.length - 2 | 0,
-       /*<<camlinternalMod.ml:82:2>>*/ _d_ = 0;
-     if(_e_ >= 0){
-      var i = _d_;
-      for(;;){
-        /*<<camlinternalMod.ml:83:35>>*/ var
-         /*<<camlinternalMod.ml:83:35>>*/ n$0 = n[1 + i],
-         /*<<camlinternalMod.ml:83:25>>*/ shape =
-          caml_check_bound(comps$0, i)[1 + i];
-       a:
-       if(typeof shape === "number"){
-        if(2 === shape){
-         if
-          (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
-           && 4 === n$0.length - 1){
-           /*<<camlinternalMod.ml:73:14>>*/ var
-            /*<<camlinternalMod.ml:73:14>>*/ cl = modu[1 + i],
-           j = 0;
-          for(;;){
-            /*<<camlinternalMod.ml:75:7>>*/ cl[1 + j] = n$0[1 + j];
-            /*<<camlinternalMod.ml:75:7>>*/  /*<<camlinternalMod.ml:75:7>>*/ var
-            _c_ = j + 1 | 0;
-           if(3 === j) break;
-           j = _c_;
-          }
-          break a;
-         }
-          /*<<camlinternalMod.ml:72:5>>*/ throw  /*<<camlinternalMod.ml:72:5>>*/ caml_maybe_attach_backtrace
-                ([0, Assert_failure, _a_], 1);
-        }
-         /*<<camlinternalMod.ml:68:5>>*/ modu[1 + i] = n$0;
-       }
-       else if(0 === shape[0]){
-        var comps = shape[1];
-         /*<<camlinternalMod.ml:78:5>>*/ update_mod_block
-         (comps, modu[1 + i], n$0);
-       }
-        /*<<camlinternalMod.ml:83:4>>*/  /*<<camlinternalMod.ml:83:4>>*/ var
-        _f_ = i + 1 | 0;
-       if(_e_ === i) break;
-       i = _f_;
+    /*<<dynarray.ml:963:5>>*/ }
+   function filter(f, a){
+     /*<<dynarray.ml:966:2>>*/  /*<<dynarray.ml:966:10>>*/ var b = create(0);
+     /*<<dynarray.ml:967:2>>*/ iter
+     (cst_filter,
+      function(x){
+        /*<<dynarray.ml:967:27>>*/  /*<<dynarray.ml:967:30>>*/ var
+        _B_ =  /*<<dynarray.ml:967:30>>*/ caml_call1(f, x);
+        /*<<dynarray.ml:967:30>>*/ return _B_ ? add_last(b, x) : _B_;
+       /*<<dynarray.ml:967:51>>*/ },
+      a);
+     /*<<dynarray.ml:967:2>>*/ return b;
+    /*<<dynarray.ml:968:3>>*/ }
+   function filter_map(f, a){
+     /*<<dynarray.ml:971:2>>*/  /*<<dynarray.ml:971:10>>*/ var b = create(0);
+     /*<<dynarray.ml:972:2>>*/ iter
+     (cst_filter_map,
+      function(x){
+        /*<<dynarray.ml:973:4>>*/  /*<<dynarray.ml:973:10>>*/ var
+        match =  /*<<dynarray.ml:973:10>>*/ caml_call1(f, x);
+       if(! match)  /*<<dynarray.ml:974:14>>*/ return 0;
+       var y = match[1];
+        /*<<dynarray.ml:975:16>>*/ return add_last(b, y);
+       /*<<dynarray.ml:975:28>>*/ },
+      a);
+     /*<<dynarray.ml:972:2>>*/ return b;
+    /*<<dynarray.ml:977:3>>*/ }
+   function mem(x, a){
+     /*<<dynarray.ml:980:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:981:2>>*/ check_valid_length(length, arr);
+    var i = 0;
+     /*<<dynarray.ml:983:4>>*/ for(;;){
+     if(i === length)
+      var res = 0;
+     else{
+       /*<<dynarray.ml:984:12>>*/ if
+       (0
+        !==
+          /*<<dynarray.ml:984:12>>*/ runtime.caml_compare
+          (unsafe_get(arr, dummy, i, length), x)){
+        /*<<dynarray.ml:986:9>>*/  /*<<dynarray.ml:986:9>>*/ var
+        i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
       }
+      var res = 1;
      }
-     return 0;
+      /*<<dynarray.ml:989:2>>*/ check_same_length(cst_mem, a, length);
+      /*<<dynarray.ml:989:2>>*/ return res;
     }
-     /*<<camlinternalMod.ml:81:2>>*/ throw  /*<<camlinternalMod.ml:81:2>>*/ caml_maybe_attach_backtrace
-           ([0, Assert_failure, _b_], 1);
-    /*<<camlinternalMod.ml:84:6>>*/ }
-   function update_mod(shape, o, n){
-     /*<<camlinternalMod.ml:87:2>>*/ if
-     (typeof shape !== "number" && 0 === shape[0]){
-     var comps = shape[1];
-      /*<<camlinternalMod.ml:89:5>>*/ return update_mod_block(comps, o, n);
+    /*<<dynarray.ml:990:5>>*/ }
+   function memq(x, a){
+     /*<<dynarray.ml:993:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:994:2>>*/ check_valid_length(length, arr);
+    var i = 0;
+     /*<<dynarray.ml:996:4>>*/ for(;;){
+     if(i === length)
+      var res = 0;
+     else{
+      if(unsafe_get(arr, dummy, i, length) !== x){
+        /*<<dynarray.ml:999:9>>*/  /*<<dynarray.ml:999:9>>*/ var
+        i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var res = 1;
+     }
+      /*<<dynarray.ml:1002:2>>*/ check_same_length(cst_memq, a, length);
+      /*<<dynarray.ml:1002:2>>*/ return res;
     }
-     /*<<camlinternalMod.ml:90:9>>*/ return  /*<<camlinternalMod.ml:90:9>>*/ caml_call1
-            (Stdlib[2], cst_CamlinternalMod_update_mod);
-    /*<<camlinternalMod.ml:90:60>>*/ }
-   var CamlinternalMod = [0, init_mod, update_mod];
-   runtime.caml_register_global(8, CamlinternalMod, "CamlinternalMod");
+    /*<<dynarray.ml:1003:5>>*/ }
+   function find_opt(p, a){
+     /*<<dynarray.ml:1006:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:1007:2>>*/ check_valid_length(length, arr);
+    var i = 0;
+     /*<<dynarray.ml:1009:4>>*/ for(;;){
+     if(i === length)
+      var res = 0;
+     else{
+       /*<<dynarray.ml:1011:14>>*/  /*<<dynarray.ml:1011:14>>*/ var
+       x = unsafe_get(arr, dummy, i, length);
+       /*<<dynarray.ml:1012:9>>*/ if
+       (!  /*<<dynarray.ml:1012:9>>*/ caml_call1(p, x)){
+        /*<<dynarray.ml:1013:11>>*/  /*<<dynarray.ml:1013:11>>*/ var
+        i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var res = [0, x];
+     }
+      /*<<dynarray.ml:1016:2>>*/ check_same_length(cst_find_opt, a, length);
+      /*<<dynarray.ml:1016:2>>*/ return res;
+    }
+    /*<<dynarray.ml:1017:5>>*/ }
+   function find_index(p, a){
+     /*<<dynarray.ml:1020:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:1021:2>>*/ check_valid_length(length, arr);
+    var i = 0;
+     /*<<dynarray.ml:1023:4>>*/ for(;;){
+     if(i === length)
+      var res = 0;
+     else{
+       /*<<dynarray.ml:1025:14>>*/  /*<<dynarray.ml:1025:14>>*/ var
+       x = unsafe_get(arr, dummy, i, length);
+       /*<<dynarray.ml:1026:9>>*/ if
+       (!  /*<<dynarray.ml:1026:9>>*/ caml_call1(p, x)){
+        /*<<dynarray.ml:1027:11>>*/  /*<<dynarray.ml:1027:11>>*/ var
+        i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var res = [0, i];
+     }
+      /*<<dynarray.ml:1030:2>>*/ check_same_length(cst_find_index, a, length);
+      /*<<dynarray.ml:1030:2>>*/ return res;
+    }
+    /*<<dynarray.ml:1031:5>>*/ }
+   function find_map(p, a){
+     /*<<dynarray.ml:1034:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:1035:2>>*/ check_valid_length(length, arr);
+    var i = 0;
+     /*<<dynarray.ml:1037:4>>*/ for(;;){
+     if(i === length)
+      var res = 0;
+     else{
+       /*<<dynarray.ml:1039:12>>*/  /*<<dynarray.ml:1039:12>>*/ var
+       r =
+          /*<<dynarray.ml:1039:12>>*/ caml_call1
+          (p, unsafe_get(arr, dummy, i, length));
+      if(! r){
+        /*<<dynarray.ml:1040:16>>*/  /*<<dynarray.ml:1040:16>>*/ var
+        i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var res = r;
+     }
+      /*<<dynarray.ml:1044:2>>*/ check_same_length(cst_find_map, a, length);
+      /*<<dynarray.ml:1044:2>>*/ return res;
+    }
+    /*<<dynarray.ml:1045:5>>*/ }
+   function find_mapi(p, a){
+     /*<<dynarray.ml:1048:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:1049:2>>*/ check_valid_length(length, arr);
+    var i = 0;
+     /*<<dynarray.ml:1051:4>>*/ for(;;){
+     if(i === length)
+      var res = 0;
+     else{
+       /*<<dynarray.ml:1053:12>>*/  /*<<dynarray.ml:1053:12>>*/ var
+       r =
+          /*<<dynarray.ml:1053:12>>*/ caml_call2
+          (p, i, unsafe_get(arr, dummy, i, length));
+      if(! r){
+        /*<<dynarray.ml:1054:16>>*/  /*<<dynarray.ml:1054:16>>*/ var
+        i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var res = r;
+     }
+      /*<<dynarray.ml:1058:2>>*/ check_same_length(cst_find_mapi, a, length);
+      /*<<dynarray.ml:1058:2>>*/ return res;
+    }
+    /*<<dynarray.ml:1059:5>>*/ }
+   function equal(eq, a1, a2){
+     /*<<dynarray.ml:1062:2>>*/ var
+     length = a1[1],
+     arr1 = a1[2],
+     dum1 = a1[3],
+      /*<<dynarray.ml:1063:2>>*/ len2 = a2[1],
+     arr2 = a2[2],
+     dum2 = a2[3];
+    if(length !== len2)  /*<<dynarray.ml:1064:25>>*/ return 0;
+     /*<<dynarray.ml:1066:4>>*/ check_valid_length(length, arr1);
+     /*<<dynarray.ml:1067:4>>*/ check_valid_length(length, arr2);
+    var i = 0;
+     /*<<dynarray.ml:1069:6>>*/ for(;;){
+     if(i === length)
+      var r = 1;
+     else{
+       /*<<dynarray.ml:1073:10>>*/ var
+        /*<<dynarray.ml:1073:10>>*/ _z_ = unsafe_get(arr2, dum2, i, length),
+        /*<<dynarray.ml:1071:8>>*/ _A_ =
+          /*<<dynarray.ml:1071:8>>*/ caml_call2
+          (eq, unsafe_get(arr1, dum1, i, length), _z_);
+       /*<<dynarray.ml:1071:8>>*/ if(_A_){
+       var i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var r = _A_;
+     }
+      /*<<dynarray.ml:1077:4>>*/ check_same_length(cst_equal, a1, length);
+      /*<<dynarray.ml:1078:4>>*/ check_same_length(cst_equal$0, a2, length);
+      /*<<dynarray.ml:1078:4>>*/ return r;
+    }
+    /*<<dynarray.ml:1080:5>>*/ }
+   function compare(cmp, a1, a2){
+     /*<<dynarray.ml:1083:2>>*/ var
+     length = a1[1],
+     arr1 = a1[2],
+     dum1 = a1[3],
+      /*<<dynarray.ml:1084:2>>*/ len2 = a2[1],
+     arr2 = a2[2],
+     dum2 = a2[3];
+    if(length !== len2) return length - len2 | 0;
+     /*<<dynarray.ml:1087:4>>*/ check_valid_length(length, arr1);
+     /*<<dynarray.ml:1088:4>>*/ check_valid_length(length, arr2);
+    var i = 0;
+     /*<<dynarray.ml:1090:6>>*/ for(;;){
+     if(i === length)
+      var r = 0;
+     else{
+       /*<<dynarray.ml:1095:12>>*/ var
+        /*<<dynarray.ml:1095:12>>*/ _y_ = unsafe_get(arr2, dum2, i, length),
+        /*<<dynarray.ml:1093:10>>*/ c =
+          /*<<dynarray.ml:1093:10>>*/ caml_call2
+          (cmp, unsafe_get(arr1, dum1, i, length), _y_);
+       /*<<dynarray.ml:1097:8>>*/ if(0 === c){
+        /*<<dynarray.ml:1098:13>>*/  /*<<dynarray.ml:1098:13>>*/ var
+        i$0 = i + 1 | 0;
+       i = i$0;
+       continue;
+      }
+      var r = c;
+     }
+      /*<<dynarray.ml:1101:4>>*/ check_same_length(cst_compare, a1, length);
+      /*<<dynarray.ml:1102:4>>*/ check_same_length(cst_compare$0, a2, length);
+      /*<<dynarray.ml:1102:4>>*/ return r;
+    }
+    /*<<dynarray.ml:1104:5>>*/ }
+   function of_array(a){
+     /*<<dynarray.ml:1114:2>>*/ var
+     length = a.length - 1,
+      /*<<dynarray.ml:1116:12>>*/ arr = copy(a, dummy);
+     /*<<dynarray.ml:1117:7>>*/ return [0, length, arr, dummy];
+    /*<<dynarray.ml:1121:3>>*/ }
+   function to_array(a){
+     /*<<dynarray.ml:1124:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:1125:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:1126:12>>*/  /*<<dynarray.ml:1126:12>>*/ var
+     res =
+        /*<<dynarray.ml:1126:12>>*/ caml_call2
+        (Stdlib_Array[1],
+         length,
+         function(i){
+           /*<<dynarray.ml:1127:4>>*/ return unsafe_get(arr, dummy, i, length);
+          /*<<dynarray.ml:1127:36>>*/ });
+     /*<<dynarray.ml:1129:2>>*/ check_same_length(cst_to_array, a, length);
+     /*<<dynarray.ml:1129:2>>*/ return res;
+    /*<<dynarray.ml:1130:5>>*/ }
+   function of_list(li){
+     /*<<dynarray.ml:1133:2>>*/ var
+      /*<<dynarray.ml:1133:10>>*/ a =
+        /*<<dynarray.ml:1133:10>>*/ caml_call1(Stdlib_Array[11], li),
+      /*<<dynarray.ml:1134:2>>*/ length = a.length - 1,
+      /*<<dynarray.ml:258:6>>*/ _x_ = Stdlib_Obj[17],
+     arr =
+        /*<<dynarray.ml:258:14>>*/ caml_obj_tag(a) !== _x_
+        ? a
+        : copy(a, dummy);
+     /*<<dynarray.ml:1137:7>>*/ return [0, length, arr, dummy];
+    /*<<dynarray.ml:1141:3>>*/ }
+   function to_list(a){
+     /*<<dynarray.ml:1144:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:1145:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:1146:10>>*/ var
+      /*<<dynarray.ml:1146:10>>*/ l = [0, 0],
+      /*<<dynarray.ml:1146:10>>*/ _u_ = length - 1 | 0;
+    if(_u_ >= 0){
+     var i = _u_;
+     for(;;){
+      var _v_ = l[1];
+      l[1] = [0, unsafe_get(arr, dummy, i, length), _v_];
+       /*<<dynarray.ml:1146:10>>*/  /*<<dynarray.ml:1146:10>>*/ var
+       _w_ = i - 1 | 0;
+      if(0 === i) break;
+      i = _w_;
+     }
+    }
+     /*<<dynarray.ml:1150:2>>*/ check_same_length(cst_to_list, a, length);
+    return l[1];
+    /*<<dynarray.ml:1151:4>>*/ }
+   function of_seq(seq){
+     /*<<dynarray.ml:1154:2>>*/  /*<<dynarray.ml:1154:13>>*/ var
+     init = create(0);
+     /*<<dynarray.ml:1155:2>>*/ append_seq(init, seq);
+     /*<<dynarray.ml:1155:2>>*/ return init;
+    /*<<dynarray.ml:1156:6>>*/ }
+   function to_seq(a){
+     /*<<dynarray.ml:1159:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:1160:2>>*/ check_valid_length(length, arr);
+    function aux(i){
+      /*<<dynarray.ml:1161:18>>*/ return function(param){
+       /*<<dynarray.ml:1162:4>>*/ check_same_length(cst_to_seq, a, length);
+      if(length <= i)  /*<<dynarray.ml:1163:24>>*/ return 0;
+       /*<<dynarray.ml:1165:14>>*/  /*<<dynarray.ml:1165:14>>*/ var
+       v = unsafe_get(arr, dummy, i, length);
+       /*<<dynarray.ml:1166:6>>*/ return [0, v, aux(i + 1 | 0)]; /*<<dynarray.ml:1167:7>>*/ };
+     /*<<dynarray.ml:1167:7>>*/ }
+     /*<<dynarray.ml:1169:2>>*/ return aux(0);
+    /*<<dynarray.ml:1169:7>>*/ }
+   function to_seq_reentrant(a){
+    function aux(i){
+      /*<<dynarray.ml:1172:18>>*/ return function(param){
+       /*<<dynarray.ml:1173:4>>*/ if(a[1] <= i)
+        /*<<dynarray.ml:1173:26>>*/ return 0;
+       /*<<dynarray.ml:1175:14>>*/  /*<<dynarray.ml:1175:14>>*/ var
+       v = get(a, i);
+       /*<<dynarray.ml:1176:6>>*/ return [0, v, aux(i + 1 | 0)]; /*<<dynarray.ml:1177:7>>*/ };
+     /*<<dynarray.ml:1177:7>>*/ }
+     /*<<dynarray.ml:1179:2>>*/ return aux(0);
+    /*<<dynarray.ml:1179:7>>*/ }
+   function to_seq_rev(a){
+     /*<<dynarray.ml:1182:2>>*/ var length = a[1], arr = a[2], dummy = a[3];
+     /*<<dynarray.ml:1183:2>>*/ check_valid_length(length, arr);
+    function aux(i){
+      /*<<dynarray.ml:1184:18>>*/ return function(param){
+       /*<<dynarray.ml:1185:4>>*/ check_same_length(cst_to_seq_rev, a, length);
+      if(0 > i)  /*<<dynarray.ml:1186:18>>*/ return 0;
+       /*<<dynarray.ml:1188:14>>*/  /*<<dynarray.ml:1188:14>>*/ var
+       v = unsafe_get(arr, dummy, i, length);
+       /*<<dynarray.ml:1189:6>>*/ return [0, v, aux(i - 1 | 0)]; /*<<dynarray.ml:1190:7>>*/ };
+     /*<<dynarray.ml:1190:7>>*/ }
+     /*<<dynarray.ml:1192:2>>*/ return aux(length - 1 | 0);
+    /*<<dynarray.ml:1192:18>>*/ }
+   function to_seq_rev_reentrant(a){
+    function aux(i){
+      /*<<dynarray.ml:1195:18>>*/ return function(param){
+       /*<<dynarray.ml:1196:4>>*/ if(0 > i)
+        /*<<dynarray.ml:1196:18>>*/ return 0;
+      if(a[1] <= i)  /*<<dynarray.ml:1200:6>>*/ return aux(a[1] - 1 | 0)(0);
+       /*<<dynarray.ml:1202:14>>*/  /*<<dynarray.ml:1202:14>>*/ var
+       v = get(a, i);
+       /*<<dynarray.ml:1203:6>>*/ return [0, v, aux(i - 1 | 0)]; /*<<dynarray.ml:1204:7>>*/ };
+     /*<<dynarray.ml:1204:7>>*/ }
+     /*<<dynarray.ml:1206:7>>*/ return aux(a[1] - 1 | 0);
+    /*<<dynarray.ml:1206:20>>*/ }
+   var
+    Stdlib_Dynarray =
+      [0,
+       create,
+       make,
+       init,
+       get,
+       set,
+       length,
+       is_empty,
+       get_last,
+       find_last,
+       copy$0,
+       add_last,
+       append_array,
+       append_list,
+       append,
+       append_seq,
+       append_iter,
+       blit,
+       pop_last_opt,
+       pop_last,
+       remove_last,
+       truncate,
+       clear,
+       iter$0,
+       iteri,
+       map,
+       mapi,
+       fold_left,
+       fold_right,
+       filter,
+       filter_map,
+       exists,
+       for_all,
+       mem,
+       memq,
+       find_opt,
+       find_index,
+       find_map,
+       find_mapi,
+       equal,
+       compare,
+       of_array,
+       to_array,
+       of_list,
+       to_list,
+       of_seq,
+       to_seq,
+       to_seq_reentrant,
+       to_seq_rev,
+       to_seq_rev_reentrant,
+       capacity,
+       ensure_capacity,
+       ensure_extra_capacity,
+       fit_capacity,
+       set_capacity,
+       reset];
+   runtime.caml_register_global(64, Stdlib_Dynarray, "Stdlib__Dynarray");
    return;
    /*<<?>>*/ }
   (globalThis));
@@ -32604,8 +33210,8 @@
    "use strict";
    var
     runtime = globalThis.jsoo_runtime,
+    caml_array_make = runtime.caml_array_make,
     caml_check_bound = runtime.caml_check_bound,
-    caml_make_vect = runtime.caml_make_vect,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_wrap_exception = runtime.caml_wrap_exception;
     /*<<?>>*/ function caml_call1(f, a0){
@@ -32679,7 +33285,7 @@
       var seed = 0;
       /*<<ephemeron.ml:110:6>>*/ return [0,
              0,
-              /*<<ephemeron.ml:110:56>>*/ caml_make_vect(x, 0),
+              /*<<ephemeron.ml:110:56>>*/ caml_array_make(x, 0),
              seed,
              x];
     }
@@ -32708,7 +33314,7 @@
              : (h
                 [1]
                = 0,
-               h[2] =  /*<<ephemeron.ml:125:18>>*/ caml_make_vect(h[4], 0),
+               h[2] =  /*<<ephemeron.ml:125:18>>*/ caml_array_make(h[4], 0),
                0);
      /*<<ephemeron.ml:126:9>>*/ }
     function copy(h){
@@ -32762,7 +33368,7 @@
       _ad_ = _ac_ ? (osize >>> 1 | 0) <= h[1] ? 1 : 0 : _ac_;
      if(_ad_){
        /*<<ephemeron.ml:174:20>>*/  /*<<ephemeron.ml:174:20>>*/ var
-       ndata =  /*<<ephemeron.ml:174:20>>*/ caml_make_vect(nsize, 0);
+       ndata =  /*<<ephemeron.ml:174:20>>*/ caml_array_make(nsize, 0);
       h[2] = ndata;
        /*<<ephemeron.ml:170:6>>*/ var
        insert_bucket =
@@ -33001,7 +33607,7 @@
           0,
           h[2]),
        /*<<ephemeron.ml:331:18>>*/ histo =
-         /*<<ephemeron.ml:331:18>>*/ caml_make_vect(mbl + 1 | 0, 0);
+         /*<<ephemeron.ml:331:18>>*/ caml_array_make(mbl + 1 | 0, 0);
       /*<<ephemeron.ml:332:6>>*/  /*<<ephemeron.ml:332:6>>*/ caml_call2
       (Stdlib_Array[12],
        function(b){
@@ -33043,7 +33649,7 @@
           0,
           h[2]),
        /*<<ephemeron.ml:354:18>>*/ histo =
-         /*<<ephemeron.ml:354:18>>*/ caml_make_vect(mbl + 1 | 0, 0);
+         /*<<ephemeron.ml:354:18>>*/ caml_array_make(mbl + 1 | 0, 0);
       /*<<ephemeron.ml:355:6>>*/  /*<<ephemeron.ml:355:6>>*/ caml_call2
       (Stdlib_Array[12],
        function(b){
@@ -34462,63 +35068,73 @@
             (Stdlib_Buffer[2], b);
     /*<<filename.ml:189:21>>*/ }
    function quote_cmd_filename(f){
-     /*<<filename.ml:222:4>>*/ if
+     /*<<filename.ml:224:4>>*/  /*<<filename.ml:225:9>>*/ var
+     f$0 =
+        /*<<filename.ml:225:9>>*/ caml_call2(Stdlib_String[15], f, 47)
+        ?  /*<<filename.ml:226:8>>*/ caml_call2
+          (Stdlib_String[18],
+           function(c){
+             /*<<filename.ml:226:19>>*/ return 47 === c ? 92 : c;
+            /*<<filename.ml:226:50>>*/ },
+           f)
+        : f;
+     /*<<filename.ml:229:7>>*/ if
      (!
-       /*<<filename.ml:222:7>>*/ caml_call2
+       /*<<filename.ml:229:7>>*/ caml_call2
        (Stdlib_String[23],
         function(param){
-          /*<<filename.ml:222:21>>*/ if(34 !== param && 37 !== param)
-           /*<<filename.ml:222:57>>*/ return 0;
-          /*<<filename.ml:222:45>>*/ return 1;
-         /*<<filename.ml:222:63>>*/ },
-        f))
-      /*<<filename.ml:224:12>>*/ return  /*<<filename.ml:224:12>>*/ caml_call2
-              (Stdlib_String[15], f, 32)
-             ?  /*<<filename.ml:225:23>>*/ caml_call2
-               (Stdlib_String[7], cst$7, [0, cst$6, [0, f, _c_]])
-             : f;
-     /*<<filename.ml:223:15>>*/  /*<<filename.ml:223:15>>*/ var
+          /*<<filename.ml:229:21>>*/ if(34 !== param && 37 !== param)
+           /*<<filename.ml:229:57>>*/ return 0;
+          /*<<filename.ml:229:45>>*/ return 1;
+         /*<<filename.ml:229:63>>*/ },
+        f$0))
+      /*<<filename.ml:231:12>>*/ return  /*<<filename.ml:231:12>>*/ caml_call2
+              (Stdlib_String[15], f$0, 32)
+             ?  /*<<filename.ml:232:23>>*/ caml_call2
+               (Stdlib_String[7], cst$7, [0, cst$6, [0, f$0, _c_]])
+             : f$0;
+     /*<<filename.ml:230:15>>*/  /*<<filename.ml:230:15>>*/ var
      _J_ =
-        /*<<filename.ml:223:15>>*/ caml_call2
-        (Stdlib[28], cst_Filename_quote_command_bad, f);
-     /*<<filename.ml:223:15>>*/ return  /*<<filename.ml:223:15>>*/ caml_call1
+        /*<<filename.ml:230:15>>*/ caml_call2
+        (Stdlib[28], cst_Filename_quote_command_bad, f$0);
+     /*<<filename.ml:230:15>>*/ return  /*<<filename.ml:230:15>>*/ caml_call1
             (Stdlib[2], _J_);
-    /*<<filename.ml:227:7>>*/ }
+    /*<<filename.ml:234:7>>*/ }
    function quote_command$0(cmd, stdin, stdout, stderr, args){
-     /*<<filename.ml:232:4>>*/ if(stderr){
+     /*<<filename.ml:239:4>>*/ if(stderr){
      var f = stderr[1];
-      /*<<filename.ml:240:43>>*/ if
-      ( /*<<filename.ml:240:43>>*/ caml_equal(stderr, stdout))
+      /*<<filename.ml:247:43>>*/ if
+      ( /*<<filename.ml:247:43>>*/ caml_equal(stderr, stdout))
       var _w_ = cst_2_1$0;
      else
-       /*<<filename.ml:242:53>>*/ var
-        /*<<filename.ml:242:53>>*/ _H_ = quote_cmd_filename(f),
-       _w_ =  /*<<filename.ml:242:45>>*/ caml_call2(Stdlib[28], cst_2$0, _H_);
+       /*<<filename.ml:249:53>>*/ var
+        /*<<filename.ml:249:53>>*/ _H_ = quote_cmd_filename(f),
+       _w_ =  /*<<filename.ml:249:45>>*/ caml_call2(Stdlib[28], cst_2$0, _H_);
      var _x_ = _w_;
     }
     else
      var _x_ = cst$16;
     var _y_ = [0, _x_, _d_];
     if(stdout)
-      /*<<filename.ml:238:55>>*/ var
+      /*<<filename.ml:245:55>>*/ var
       f$0 = stdout[1],
-       /*<<filename.ml:238:55>>*/ _z_ = quote_cmd_filename(f$0),
-      _A_ =  /*<<filename.ml:238:48>>*/ caml_call2(Stdlib[28], cst$8, _z_);
+       /*<<filename.ml:245:55>>*/ _z_ = quote_cmd_filename(f$0),
+      _A_ =  /*<<filename.ml:245:48>>*/ caml_call2(Stdlib[28], cst$8, _z_);
     else
      var _A_ = cst$15;
     var _B_ = [0, _A_, _y_];
     if(stdin)
-      /*<<filename.ml:237:55>>*/ var
+      /*<<filename.ml:244:55>>*/ var
       f$1 = stdin[1],
-       /*<<filename.ml:237:55>>*/ _C_ = quote_cmd_filename(f$1),
-      _D_ =  /*<<filename.ml:237:48>>*/ caml_call2(Stdlib[28], cst$9, _C_);
+       /*<<filename.ml:244:55>>*/ _C_ = quote_cmd_filename(f$1),
+      _D_ =  /*<<filename.ml:244:48>>*/ caml_call2(Stdlib[28], cst$9, _C_);
     else
      var _D_ = cst$14;
-     /*<<filename.ml:236:35>>*/ var
-      /*<<filename.ml:236:35>>*/ _E_ =
-        /*<<filename.ml:236:35>>*/ caml_call2(Stdlib_List[20], quote$0, args),
-      /*<<filename.ml:236:16>>*/ s =
-        /*<<filename.ml:236:16>>*/ caml_call2(Stdlib_String[7], cst$10, _E_),
+     /*<<filename.ml:243:35>>*/ var
+      /*<<filename.ml:243:35>>*/ _E_ =
+        /*<<filename.ml:243:35>>*/ caml_call2(Stdlib_List[20], quote$0, args),
+      /*<<filename.ml:243:16>>*/ s =
+        /*<<filename.ml:243:16>>*/ caml_call2(Stdlib_String[7], cst$10, _E_),
       /*<<filename.ml:211:12>>*/ b =
         /*<<filename.ml:211:12>>*/ caml_call1
         (Stdlib_Buffer[1], caml_ml_string_length(s) + 20 | 0);
@@ -34552,24 +35168,24 @@
                (Stdlib_Buffer[12], b, c);
        /*<<filename.ml:218:31>>*/ },
       s);
-     /*<<filename.ml:232:21>>*/ var
+     /*<<filename.ml:239:21>>*/ var
      _F_ =
        [0,
         cst$11,
         [0,
           /*<<filename.ml:212:4>>*/ caml_call1(Stdlib_Buffer[2], b),
          [0, _D_, _B_]]],
-      /*<<filename.ml:232:21>>*/ _G_ =
+      /*<<filename.ml:239:21>>*/ _G_ =
        [0, cst$12, [0, quote_cmd_filename(cmd), _F_]];
-     /*<<filename.ml:232:21>>*/ return  /*<<filename.ml:232:21>>*/ caml_call2
+     /*<<filename.ml:239:21>>*/ return  /*<<filename.ml:239:21>>*/ caml_call2
             (Stdlib_String[7], cst$13, _G_);
-    /*<<filename.ml:244:5>>*/ }
+    /*<<filename.ml:251:5>>*/ }
    function drive_and_path(s){
-     /*<<filename.ml:252:4>>*/ var
-     _s_ = 2 <=  /*<<filename.ml:250:4>>*/ caml_ml_string_length(s) ? 1 : 0;
+     /*<<filename.ml:259:4>>*/ var
+     _s_ = 2 <=  /*<<filename.ml:257:4>>*/ caml_ml_string_length(s) ? 1 : 0;
     if(_s_){
-      /*<<filename.ml:250:38>>*/  /*<<filename.ml:250:38>>*/ var
-      param =  /*<<filename.ml:250:38>>*/ caml_string_get(s, 0);
+      /*<<filename.ml:257:38>>*/  /*<<filename.ml:257:38>>*/ var
+      param =  /*<<filename.ml:257:38>>*/ caml_string_get(s, 0);
      a:
      {
       b:
@@ -34583,39 +35199,39 @@
       }
       var _t_ = 0;
      }
-      /*<<filename.ml:250:28>>*/  /*<<filename.ml:250:28>>*/ var
+      /*<<filename.ml:257:28>>*/  /*<<filename.ml:257:28>>*/ var
       _u_ =
         _t_
-         ? 58 ===  /*<<filename.ml:250:47>>*/ caml_string_get(s, 1) ? 1 : 0
+         ? 58 ===  /*<<filename.ml:257:47>>*/ caml_string_get(s, 1) ? 1 : 0
          : _t_;
     }
     else
      var _u_ = _s_;
-     /*<<filename.ml:252:7>>*/ if(! _u_)
-      /*<<filename.ml:254:9>>*/ return [0, cst$17, s];
-     /*<<filename.ml:253:28>>*/  /*<<filename.ml:253:28>>*/ var
+     /*<<filename.ml:259:7>>*/ if(! _u_)
+      /*<<filename.ml:261:9>>*/ return [0, cst$17, s];
+     /*<<filename.ml:260:28>>*/  /*<<filename.ml:260:28>>*/ var
      _v_ =
-        /*<<filename.ml:253:28>>*/ caml_call3
+        /*<<filename.ml:260:28>>*/ caml_call3
         (Stdlib_String[16], s, 2, caml_ml_string_length(s) - 2 | 0);
-     /*<<filename.ml:253:9>>*/ return [0,
-             /*<<filename.ml:253:10>>*/ caml_call3(Stdlib_String[16], s, 0, 2),
+     /*<<filename.ml:260:9>>*/ return [0,
+             /*<<filename.ml:260:10>>*/ caml_call3(Stdlib_String[16], s, 0, 2),
             _v_];
-    /*<<filename.ml:254:16>>*/ }
+    /*<<filename.ml:261:16>>*/ }
    function dirname$0(s){
-     /*<<filename.ml:256:4>>*/ var
-      /*<<filename.ml:256:24>>*/ match = drive_and_path(s),
+     /*<<filename.ml:263:4>>*/ var
+      /*<<filename.ml:263:24>>*/ match = drive_and_path(s),
      path = match[2],
      drive = match[1],
-      /*<<filename.ml:257:14>>*/ dir =
+      /*<<filename.ml:264:14>>*/ dir =
        generic_dirname(is_dir_sep$0, current_dir_name$0, path);
-     /*<<filename.ml:258:4>>*/ return  /*<<filename.ml:258:4>>*/ caml_call2
+     /*<<filename.ml:265:4>>*/ return  /*<<filename.ml:265:4>>*/ caml_call2
             (Stdlib[28], drive, dir);
-    /*<<filename.ml:258:15>>*/ }
+    /*<<filename.ml:265:15>>*/ }
    function basename$0(s){
-     /*<<filename.ml:260:4>>*/ var path = drive_and_path(s)[2];
-     /*<<filename.ml:261:4>>*/ return generic_basename
+     /*<<filename.ml:267:4>>*/ var path = drive_and_path(s)[2];
+     /*<<filename.ml:268:4>>*/ return generic_basename
             (is_dir_sep$0, current_dir_name$0, path);
-    /*<<filename.ml:261:53>>*/ }
+    /*<<filename.ml:268:53>>*/ }
     /*<<filename.ml:130:25>>*/  /*<<filename.ml:130:25>>*/ var
     Win32 =
       [0,
@@ -34633,14 +35249,14 @@
        quote_command$0,
        basename$0,
        dirname$0];
-    /*<<filename.ml:277:17>>*/ function basename$1(_r_){
+    /*<<filename.ml:284:17>>*/ function basename$1(_r_){
      /*<<?>>*/ return generic_basename(is_dir_sep$0, current_dir_name$1, _r_);
    }
-    /*<<filename.ml:278:16>>*/ function dirname$1(_q_){
+    /*<<filename.ml:285:16>>*/ function dirname$1(_q_){
      /*<<?>>*/ return generic_dirname(is_dir_sep$0, current_dir_name$1, _q_);
    }
-    /*<<filename.ml:264:26>>*/ var
-     /*<<filename.ml:264:26>>*/ Cygwin =
+    /*<<filename.ml:271:26>>*/ var
+     /*<<filename.ml:271:26>>*/ Cygwin =
       [0,
        null$2,
        current_dir_name$1,
@@ -34673,151 +35289,151 @@
     basename$2 = Sysdeps[13],
     dirname$2 = Sysdeps[14];
    function concat(dirname, filename){
-     /*<<filename.ml:290:2>>*/ var l = caml_ml_string_length(dirname);
-     /*<<filename.ml:291:14>>*/ if
+     /*<<filename.ml:297:2>>*/ var l = caml_ml_string_length(dirname);
+     /*<<filename.ml:298:14>>*/ if
      (0 !== l && ! is_dir_sep$1(dirname, l - 1 | 0)){
-      /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ var
+      /*<<filename.ml:300:17>>*/  /*<<filename.ml:300:17>>*/ var
       _p_ =
-         /*<<filename.ml:293:17>>*/ caml_call2
+         /*<<filename.ml:300:17>>*/ caml_call2
          (Stdlib[28], dir_sep$2, filename);
-      /*<<filename.ml:293:17>>*/ return  /*<<filename.ml:293:17>>*/ caml_call2
+      /*<<filename.ml:300:17>>*/ return  /*<<filename.ml:300:17>>*/ caml_call2
              (Stdlib[28], dirname, _p_);
     }
-     /*<<filename.ml:292:7>>*/ return  /*<<filename.ml:292:7>>*/ caml_call2
+     /*<<filename.ml:299:7>>*/ return  /*<<filename.ml:299:7>>*/ caml_call2
             (Stdlib[28], dirname, filename);
-    /*<<filename.ml:293:35>>*/ }
+    /*<<filename.ml:300:35>>*/ }
    function chop_suffix(name, suff){
-     /*<<filename.ml:296:2>>*/ return check_suffix$1(name, suff)
+     /*<<filename.ml:303:2>>*/ return check_suffix$1(name, suff)
             ? caml_call3
               (Stdlib_String[16],
                name,
                0,
                caml_ml_string_length(name) - caml_ml_string_length(suff) | 0)
-            :  /*<<filename.ml:298:7>>*/ caml_call1
+            :  /*<<filename.ml:305:7>>*/ caml_call1
               (Stdlib[1], cst_Filename_chop_suffix);
-    /*<<filename.ml:298:41>>*/ }
+    /*<<filename.ml:305:41>>*/ }
    function extension_len(name){
-     /*<<filename.ml:301:2>>*/ var
+     /*<<filename.ml:308:2>>*/ var
      i$3 = caml_ml_string_length(name) - 1 | 0,
      i0 = i$3;
-     /*<<filename.ml:307:4>>*/ for(;;){
-      /*<<filename.ml:307:16>>*/ if(0 <= i0 && ! is_dir_sep$1(name, i0)){
-       /*<<filename.ml:308:12>>*/ if
-       (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
+     /*<<filename.ml:314:4>>*/ for(;;){
+      /*<<filename.ml:314:16>>*/ if(0 <= i0 && ! is_dir_sep$1(name, i0)){
+       /*<<filename.ml:315:12>>*/ if
+       (46 ===  /*<<filename.ml:315:12>>*/ caml_string_get(name, i0))
        break;
-       /*<<filename.ml:309:9>>*/  /*<<filename.ml:309:9>>*/ var
+       /*<<filename.ml:316:9>>*/  /*<<filename.ml:316:9>>*/ var
        i$2 = i0 - 1 | 0;
       i0 = i$2;
       continue;
      }
-      /*<<filename.ml:307:39>>*/ return 0;
+      /*<<filename.ml:314:39>>*/ return 0;
     }
-     /*<<filename.ml:308:32>>*/ var
-      /*<<filename.ml:308:32>>*/ i$1 = i0 - 1 | 0,
+     /*<<filename.ml:315:32>>*/ var
+      /*<<filename.ml:315:32>>*/ i$1 = i0 - 1 | 0,
      i = i$1;
-     /*<<filename.ml:302:4>>*/ for(;;){
-      /*<<filename.ml:302:16>>*/ if(0 <= i && ! is_dir_sep$1(name, i)){
-       /*<<filename.ml:303:12>>*/ if
-       (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
+     /*<<filename.ml:309:4>>*/ for(;;){
+      /*<<filename.ml:309:16>>*/ if(0 <= i && ! is_dir_sep$1(name, i)){
+       /*<<filename.ml:310:12>>*/ if
+       (46 !==  /*<<filename.ml:310:12>>*/ caml_string_get(name, i))
        return caml_ml_string_length(name) - i0 | 0;
-       /*<<filename.ml:303:32>>*/  /*<<filename.ml:303:32>>*/ var
+       /*<<filename.ml:310:32>>*/  /*<<filename.ml:310:32>>*/ var
        i$0 = i - 1 | 0;
       i = i$0;
       continue;
      }
-      /*<<filename.ml:302:39>>*/ return 0;
+      /*<<filename.ml:309:39>>*/ return 0;
     }
-    /*<<filename.ml:311:37>>*/ }
+    /*<<filename.ml:318:37>>*/ }
    function extension(name){
-     /*<<filename.ml:314:2>>*/  /*<<filename.ml:314:10>>*/ var
+     /*<<filename.ml:321:2>>*/  /*<<filename.ml:321:10>>*/ var
      l = extension_len(name);
-     /*<<filename.ml:315:2>>*/ return 0 === l
+     /*<<filename.ml:322:2>>*/ return 0 === l
             ? cst$18
-            :  /*<<filename.ml:315:24>>*/ caml_call3
+            :  /*<<filename.ml:322:24>>*/ caml_call3
               (Stdlib_String[16],
                name,
                caml_ml_string_length(name) - l | 0,
                l);
-    /*<<filename.ml:315:66>>*/ }
+    /*<<filename.ml:322:66>>*/ }
    function chop_extension(name){
-     /*<<filename.ml:318:2>>*/  /*<<filename.ml:318:10>>*/ var
+     /*<<filename.ml:325:2>>*/  /*<<filename.ml:325:10>>*/ var
      l = extension_len(name);
-     /*<<filename.ml:319:2>>*/ return 0 === l
-            ?  /*<<filename.ml:319:16>>*/ caml_call1
+     /*<<filename.ml:326:2>>*/ return 0 === l
+            ?  /*<<filename.ml:326:16>>*/ caml_call1
               (Stdlib[1], cst_Filename_chop_extension)
             : caml_call3
               (Stdlib_String[16],
                name,
                0,
                caml_ml_string_length(name) - l | 0);
-    /*<<filename.ml:320:49>>*/ }
+    /*<<filename.ml:327:49>>*/ }
    function remove_extension(name){
-     /*<<filename.ml:323:2>>*/  /*<<filename.ml:323:10>>*/ var
+     /*<<filename.ml:330:2>>*/  /*<<filename.ml:330:10>>*/ var
      l = extension_len(name);
-     /*<<filename.ml:324:2>>*/ return 0 === l
+     /*<<filename.ml:331:2>>*/ return 0 === l
             ? name
             : caml_call3
               (Stdlib_String[16],
                name,
                0,
                caml_ml_string_length(name) - l | 0);
-    /*<<filename.ml:324:68>>*/ }
-    /*<<filename.ml:330:2>>*/  /*<<filename.ml:330:2>>*/ var
+    /*<<filename.ml:331:68>>*/ }
+    /*<<filename.ml:337:2>>*/  /*<<filename.ml:337:2>>*/ var
     prng_key =
-       /*<<filename.ml:330:2>>*/ caml_call2
-       (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
+       /*<<filename.ml:337:2>>*/ caml_call2
+       (Stdlib_Domain[11][1], 0, Stdlib_Random[19][2]);
    function temp_file_name(temp_dir, prefix, suffix){
-     /*<<filename.ml:333:2>>*/ var
-      /*<<filename.ml:333:21>>*/ random_state =
-        /*<<filename.ml:333:21>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
-      /*<<filename.ml:334:12>>*/ rnd =
-        /*<<filename.ml:334:12>>*/ caml_call1
+     /*<<filename.ml:340:2>>*/ var
+      /*<<filename.ml:340:21>>*/ random_state =
+        /*<<filename.ml:340:21>>*/ caml_call1(Stdlib_Domain[11][2], prng_key),
+      /*<<filename.ml:341:12>>*/ rnd =
+        /*<<filename.ml:341:12>>*/ caml_call1
         (Stdlib_Random[19][4], random_state)
        & 16777215;
-     /*<<filename.ml:335:18>>*/ return concat
+     /*<<filename.ml:342:18>>*/ return concat
             (temp_dir,
-              /*<<filename.ml:335:18>>*/ caml_call4
+              /*<<filename.ml:342:18>>*/ caml_call4
               (Stdlib_Printf[4], _f_, prefix, rnd, suffix));
-    /*<<filename.ml:335:63>>*/ }
-    /*<<filename.ml:338:2>>*/  /*<<filename.ml:338:2>>*/ var
+    /*<<filename.ml:342:63>>*/ }
+    /*<<filename.ml:345:2>>*/  /*<<filename.ml:345:2>>*/ var
     current_temp_dir_name =
-       /*<<filename.ml:338:2>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+       /*<<filename.ml:345:2>>*/ caml_call2
+       (Stdlib_Domain[11][1],
         [0, function(_o_){ /*<<?>>*/ return _o_;}],
         function(param){
-          /*<<filename.ml:338:58>>*/ return temp_dir_name$1;
-         /*<<filename.ml:338:71>>*/ });
+          /*<<filename.ml:345:58>>*/ return temp_dir_name$1;
+         /*<<filename.ml:345:71>>*/ });
    function set_temp_dir_name(s){
-     /*<<filename.ml:340:26>>*/ return  /*<<filename.ml:340:26>>*/ caml_call2
-            (Stdlib_Domain[10][3], current_temp_dir_name, s);
-    /*<<filename.ml:340:64>>*/ }
+     /*<<filename.ml:347:26>>*/ return  /*<<filename.ml:347:26>>*/ caml_call2
+            (Stdlib_Domain[11][3], current_temp_dir_name, s);
+    /*<<filename.ml:347:64>>*/ }
    function get_temp_dir_name(param){
-     /*<<filename.ml:341:27>>*/ return caml_call1
-            (Stdlib_Domain[10][2], current_temp_dir_name);
-    /*<<filename.ml:341:63>>*/ }
+     /*<<filename.ml:348:27>>*/ return caml_call1
+            (Stdlib_Domain[11][2], current_temp_dir_name);
+    /*<<filename.ml:348:63>>*/ }
    function temp_file(opt, prefix, suffix){
     var
      temp_dir =
        opt
         ? opt[1]
-        :  /*<<filename.ml:343:27>>*/ caml_call1
-          (Stdlib_Domain[10][2], current_temp_dir_name),
+        :  /*<<filename.ml:350:27>>*/ caml_call1
+          (Stdlib_Domain[11][2], current_temp_dir_name),
      counter = 0;
-     /*<<filename.ml:345:4>>*/ for(;;){
-      /*<<filename.ml:345:15>>*/  /*<<filename.ml:345:15>>*/ var
+     /*<<filename.ml:352:4>>*/ for(;;){
+      /*<<filename.ml:352:15>>*/  /*<<filename.ml:352:15>>*/ var
       name = temp_file_name(temp_dir, prefix, suffix);
-      /*<<filename.ml:346:4>>*/ try{
-       /*<<filename.ml:347:6>>*/  /*<<filename.ml:347:6>>*/ runtime.caml_sys_close
-       ( /*<<filename.ml:347:16>>*/ runtime.caml_sys_open(name, _g_, 384));
-       /*<<filename.ml:347:6>>*/ return name;
+      /*<<filename.ml:353:4>>*/ try{
+       /*<<filename.ml:354:6>>*/  /*<<filename.ml:354:6>>*/ runtime.caml_sys_close
+       ( /*<<filename.ml:354:16>>*/ runtime.caml_sys_open(name, _g_, 384));
+       /*<<filename.ml:354:6>>*/ return name;
      }
      catch(e$0){
       var e = caml_wrap_exception(e$0);
       if(e[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(e, 0);
       if(20 <= counter)
-        /*<<filename.ml:350:28>>*/ throw  /*<<filename.ml:350:28>>*/ caml_maybe_attach_backtrace
+        /*<<filename.ml:357:28>>*/ throw  /*<<filename.ml:357:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:350:41>>*/  /*<<filename.ml:350:41>>*/ var
+       /*<<filename.ml:357:41>>*/  /*<<filename.ml:357:41>>*/ var
        counter$0 = counter + 1 | 0;
       counter = counter$0;
      }
@@ -34830,28 +35446,28 @@
      temp_dir =
        opt
         ? opt[1]
-        :  /*<<filename.ml:354:17>>*/ caml_call1
-          (Stdlib_Domain[10][2], current_temp_dir_name),
+        :  /*<<filename.ml:361:17>>*/ caml_call1
+          (Stdlib_Domain[11][2], current_temp_dir_name),
      counter = 0;
-     /*<<filename.ml:357:4>>*/ for(;;){
-      /*<<filename.ml:357:15>>*/  /*<<filename.ml:357:15>>*/ var
+     /*<<filename.ml:364:4>>*/ for(;;){
+      /*<<filename.ml:364:15>>*/  /*<<filename.ml:364:15>>*/ var
       name = temp_file_name(temp_dir, prefix, suffix);
-      /*<<filename.ml:358:4>>*/ try{
-       /*<<filename.ml:359:6>>*/  /*<<filename.ml:359:6>>*/ var
+      /*<<filename.ml:365:4>>*/ try{
+       /*<<filename.ml:366:6>>*/  /*<<filename.ml:366:6>>*/ var
        _n_ =
          [0,
           name,
-           /*<<filename.ml:360:7>>*/ caml_call3
+           /*<<filename.ml:367:7>>*/ caml_call3
            (Stdlib[62], [0, 1, [0, 3, [0, 5, mode]]], perms, name)];
-       /*<<filename.ml:359:6>>*/ return _n_;
+       /*<<filename.ml:366:6>>*/ return _n_;
      }
      catch(e$0){
       var e = caml_wrap_exception(e$0);
       if(e[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(e, 0);
       if(20 <= counter)
-        /*<<filename.ml:362:28>>*/ throw  /*<<filename.ml:362:28>>*/ caml_maybe_attach_backtrace
+        /*<<filename.ml:369:28>>*/ throw  /*<<filename.ml:369:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:362:41>>*/  /*<<filename.ml:362:41>>*/ var
+       /*<<filename.ml:369:41>>*/  /*<<filename.ml:369:41>>*/ var
        counter$0 = counter + 1 | 0;
       counter = counter$0;
      }
@@ -34862,25 +35478,25 @@
      temp_dir =
        _k_
         ? _k_[1]
-        :  /*<<filename.ml:365:26>>*/ caml_call1
-          (Stdlib_Domain[10][2], current_temp_dir_name),
+        :  /*<<filename.ml:372:26>>*/ caml_call1
+          (Stdlib_Domain[11][2], current_temp_dir_name),
      perms = opt ? opt[1] : 448,
      counter = 0;
-     /*<<filename.ml:368:4>>*/ for(;;){
-      /*<<filename.ml:368:15>>*/  /*<<filename.ml:368:15>>*/ var
+     /*<<filename.ml:375:4>>*/ for(;;){
+      /*<<filename.ml:375:15>>*/  /*<<filename.ml:375:15>>*/ var
       name = temp_file_name(temp_dir, prefix, suffix);
-      /*<<filename.ml:369:4>>*/ try{
-       /*<<filename.ml:370:6>>*/  /*<<filename.ml:370:6>>*/ runtime.caml_sys_mkdir
+      /*<<filename.ml:376:4>>*/ try{
+       /*<<filename.ml:377:6>>*/  /*<<filename.ml:377:6>>*/ runtime.caml_sys_mkdir
        (name, perms);
-       /*<<filename.ml:370:6>>*/ return name;
+       /*<<filename.ml:377:6>>*/ return name;
      }
      catch(e$0){
       var e = caml_wrap_exception(e$0);
       if(e[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(e, 0);
       if(20 <= counter)
-        /*<<filename.ml:373:28>>*/ throw  /*<<filename.ml:373:28>>*/ caml_maybe_attach_backtrace
+        /*<<filename.ml:380:28>>*/ throw  /*<<filename.ml:380:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:373:41>>*/  /*<<filename.ml:373:41>>*/ var
+       /*<<filename.ml:380:41>>*/  /*<<filename.ml:380:41>>*/ var
        counter$0 = counter + 1 | 0;
       counter = counter$0;
      }
@@ -35205,25 +35821,29 @@
     filter = Stdlib_List[44],
     find_all = Stdlib_List[45],
     filteri = Stdlib_List[46],
-    partition = Stdlib_List[47],
-    partition_map = Stdlib_List[48],
-    assoc = Stdlib_List[49],
-    assoc_opt = Stdlib_List[50],
-    assq = Stdlib_List[51],
-    assq_opt = Stdlib_List[52],
-    mem_assoc = Stdlib_List[53],
-    mem_assq = Stdlib_List[54],
-    remove_assoc = Stdlib_List[55],
-    remove_assq = Stdlib_List[56],
-    split = Stdlib_List[57],
-    combine = Stdlib_List[58],
-    sort = Stdlib_List[59],
-    stable_sort = Stdlib_List[60],
-    fast_sort = Stdlib_List[61],
-    sort_uniq = Stdlib_List[62],
-    merge = Stdlib_List[63],
-    to_seq = Stdlib_List[64],
-    of_seq = Stdlib_List[65],
+    take = Stdlib_List[47],
+    drop = Stdlib_List[48],
+    take_while = Stdlib_List[49],
+    drop_while = Stdlib_List[50],
+    partition = Stdlib_List[51],
+    partition_map = Stdlib_List[52],
+    assoc = Stdlib_List[53],
+    assoc_opt = Stdlib_List[54],
+    assq = Stdlib_List[55],
+    assq_opt = Stdlib_List[56],
+    mem_assoc = Stdlib_List[57],
+    mem_assq = Stdlib_List[58],
+    remove_assoc = Stdlib_List[59],
+    remove_assq = Stdlib_List[60],
+    split = Stdlib_List[61],
+    combine = Stdlib_List[62],
+    sort = Stdlib_List[63],
+    stable_sort = Stdlib_List[64],
+    fast_sort = Stdlib_List[65],
+    sort_uniq = Stdlib_List[66],
+    merge = Stdlib_List[67],
+    to_seq = Stdlib_List[68],
+    of_seq = Stdlib_List[69],
     Stdlib_ListLabels =
       [0,
        length,
@@ -35272,6 +35892,10 @@
        filter,
        find_all,
        filteri,
+       take,
+       drop,
+       take_while,
+       drop_while,
        partition,
        partition_map,
        assoc,
@@ -35721,77 +36345,75 @@
      "Effect.Continuation_already_resumed",
      Continuation_already_resumed);
     /*<<effect.ml:36:8>>*/ function continue$0(k, v){
-     /*<<effect.ml:62:4>>*/  /*<<effect.ml:62:11>>*/ var
-     _h_ =  /*<<effect.ml:62:11>>*/ caml_continuation_use_noexc(k);
+     /*<<effect.ml:60:4>>*/  /*<<effect.ml:60:11>>*/ var
+     _h_ =  /*<<effect.ml:60:11>>*/ caml_continuation_use_noexc(k);
     function _g_(x){
-      /*<<effect.ml:62:41>>*/ return x;
-     /*<<effect.ml:62:42>>*/ }
-     /*<<effect.ml:62:11>>*/ return  /*<<effect.ml:62:11>>*/ jsoo_effect_not_supported
+      /*<<effect.ml:60:41>>*/ return x;
+     /*<<effect.ml:60:42>>*/ }
+     /*<<effect.ml:60:11>>*/ return  /*<<effect.ml:60:11>>*/ jsoo_effect_not_supported
             ();
-    /*<<effect.ml:62:65>>*/ }
+    /*<<effect.ml:60:65>>*/ }
    function discontinue(k, e){
-     /*<<effect.ml:65:4>>*/  /*<<effect.ml:65:11>>*/ var
-     _f_ =  /*<<effect.ml:65:11>>*/ caml_continuation_use_noexc(k);
+     /*<<effect.ml:63:4>>*/  /*<<effect.ml:63:11>>*/ var
+     _f_ =  /*<<effect.ml:63:11>>*/ caml_continuation_use_noexc(k);
     function _e_(e){
-      /*<<effect.ml:65:41>>*/ throw  /*<<effect.ml:65:41>>*/ caml_maybe_attach_backtrace
+      /*<<effect.ml:63:41>>*/ throw  /*<<effect.ml:63:41>>*/ caml_maybe_attach_backtrace
             (e, 1);
-     /*<<effect.ml:65:48>>*/ }
-     /*<<effect.ml:65:11>>*/ return  /*<<effect.ml:65:11>>*/ jsoo_effect_not_supported
+     /*<<effect.ml:63:48>>*/ }
+     /*<<effect.ml:63:11>>*/ return  /*<<effect.ml:63:11>>*/ jsoo_effect_not_supported
             ();
-    /*<<effect.ml:65:71>>*/ }
+    /*<<effect.ml:63:71>>*/ }
    function discontinue_with_backtrace(k, e, bt){
-     /*<<effect.ml:68:4>>*/  /*<<effect.ml:68:11>>*/ var
-     _d_ =  /*<<effect.ml:68:11>>*/ caml_continuation_use_noexc(k);
+     /*<<effect.ml:66:4>>*/  /*<<effect.ml:66:11>>*/ var
+     _d_ =  /*<<effect.ml:66:11>>*/ caml_continuation_use_noexc(k);
     function _c_(e){
-      /*<<effect.ml:68:41>>*/ caml_restore_raw_backtrace(e, bt);
-      /*<<effect.ml:68:41>>*/ throw  /*<<effect.ml:68:41>>*/ caml_maybe_attach_backtrace
+      /*<<effect.ml:66:41>>*/ caml_restore_raw_backtrace(e, bt);
+      /*<<effect.ml:66:41>>*/ throw  /*<<effect.ml:66:41>>*/ caml_maybe_attach_backtrace
             (e, 0);
-     /*<<effect.ml:68:75>>*/ }
-     /*<<effect.ml:68:11>>*/ return  /*<<effect.ml:68:11>>*/ jsoo_effect_not_supported
+     /*<<effect.ml:66:75>>*/ }
+     /*<<effect.ml:66:11>>*/ return  /*<<effect.ml:66:11>>*/ jsoo_effect_not_supported
             ();
-    /*<<effect.ml:69:27>>*/ }
+    /*<<effect.ml:67:27>>*/ }
    function match_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:81:6>>*/  /*<<effect.ml:81:12>>*/ var
-      match =  /*<<effect.ml:81:12>>*/ caml_call1(handler[3], eff);
+      /*<<effect.ml:79:6>>*/  /*<<effect.ml:79:12>>*/ var
+      match =  /*<<effect.ml:79:12>>*/ caml_call1(handler[3], eff);
      if(! match)
-       /*<<effect.ml:85:16>>*/ return  /*<<effect.ml:85:16>>*/ jsoo_effect_not_supported
+       /*<<effect.ml:81:16>>*/ return  /*<<effect.ml:81:16>>*/ jsoo_effect_not_supported
               ();
      var f = match[1];
-     k[2] = last_fiber;
-      /*<<effect.ml:84:10>>*/ return  /*<<effect.ml:84:10>>*/ caml_call1(f, k);
-     /*<<effect.ml:85:42>>*/ }
-     /*<<effect.ml:87:12>>*/  /*<<effect.ml:87:12>>*/ var
+      /*<<effect.ml:80:18>>*/ return  /*<<effect.ml:80:18>>*/ caml_call1(f, k);
+     /*<<effect.ml:81:42>>*/ }
+     /*<<effect.ml:83:12>>*/  /*<<effect.ml:83:12>>*/ var
      s =
-        /*<<effect.ml:87:12>>*/ caml_alloc_stack(handler[1], handler[2], effc);
-     /*<<effect.ml:88:4>>*/ return  /*<<effect.ml:88:4>>*/ jsoo_effect_not_supported
+        /*<<effect.ml:83:12>>*/ caml_alloc_stack(handler[1], handler[2], effc);
+     /*<<effect.ml:84:4>>*/ return  /*<<effect.ml:84:4>>*/ jsoo_effect_not_supported
             ();
-    /*<<effect.ml:88:23>>*/ }
+    /*<<effect.ml:84:23>>*/ }
    function try_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:95:6>>*/  /*<<effect.ml:95:12>>*/ var
-      match =  /*<<effect.ml:95:12>>*/ caml_call1(handler[1], eff);
+      /*<<effect.ml:91:6>>*/  /*<<effect.ml:91:12>>*/ var
+      match =  /*<<effect.ml:91:12>>*/ caml_call1(handler[1], eff);
      if(! match)
-       /*<<effect.ml:99:16>>*/ return  /*<<effect.ml:99:16>>*/ jsoo_effect_not_supported
+       /*<<effect.ml:93:16>>*/ return  /*<<effect.ml:93:16>>*/ jsoo_effect_not_supported
               ();
      var f = match[1];
-     k[2] = last_fiber;
-      /*<<effect.ml:98:10>>*/ return  /*<<effect.ml:98:10>>*/ caml_call1(f, k);
-     /*<<effect.ml:99:42>>*/ }
-     /*<<effect.ml:101:12>>*/  /*<<effect.ml:101:12>>*/ var
+      /*<<effect.ml:92:18>>*/ return  /*<<effect.ml:92:18>>*/ caml_call1(f, k);
+     /*<<effect.ml:93:42>>*/ }
+     /*<<effect.ml:95:12>>*/  /*<<effect.ml:95:12>>*/ var
      s =
-        /*<<effect.ml:101:12>>*/ caml_alloc_stack
+        /*<<effect.ml:95:12>>*/ caml_alloc_stack
         (function(x){
-           /*<<effect.ml:101:34>>*/ return x;
-          /*<<effect.ml:101:35>>*/ },
+           /*<<effect.ml:95:34>>*/ return x;
+          /*<<effect.ml:95:35>>*/ },
          function(e){
-           /*<<effect.ml:101:47>>*/ throw  /*<<effect.ml:101:47>>*/ caml_maybe_attach_backtrace
+           /*<<effect.ml:95:47>>*/ throw  /*<<effect.ml:95:47>>*/ caml_maybe_attach_backtrace
                  (e, 1);
-          /*<<effect.ml:101:54>>*/ },
+          /*<<effect.ml:95:54>>*/ },
          effc);
-     /*<<effect.ml:102:4>>*/ return  /*<<effect.ml:102:4>>*/ jsoo_effect_not_supported
+     /*<<effect.ml:96:4>>*/ return  /*<<effect.ml:96:4>>*/ jsoo_effect_not_supported
             ();
-    /*<<effect.ml:102:23>>*/ }
+    /*<<effect.ml:96:23>>*/ }
     /*<<effect.ml:46:14>>*/ var
      /*<<effect.ml:46:14>>*/ Deep =
       [0,
@@ -35804,28 +36426,27 @@
     cst_E = "E",
     cst_impossible = "impossible";
    function fiber(f){
-     /*<<effect.ml:124:4>>*/ var
-      /*<<effect.ml:124:38>>*/ Initial_setup =
+     /*<<effect.ml:116:4>>*/ var
+      /*<<effect.ml:116:38>>*/ Initial_setup =
        [248, cst_Initial_setup, caml_fresh_oo_id(0)],
-      /*<<effect.ml:125:18>>*/ E = [248, cst_E, caml_fresh_oo_id(0)];
+      /*<<effect.ml:117:18>>*/ E = [248, cst_E, caml_fresh_oo_id(0)];
     function f$0(param){
-      /*<<effect.ml:126:16>>*/ return  /*<<effect.ml:126:18>>*/ caml_call1
-             (f,  /*<<effect.ml:126:18>>*/ jsoo_effect_not_supported());
-     /*<<effect.ml:126:45>>*/ }
-     /*<<effect.ml:127:4>>*/ function error(param){
-      /*<<effect.ml:127:18>>*/ return  /*<<effect.ml:127:18>>*/ caml_call1
+      /*<<effect.ml:118:16>>*/ return  /*<<effect.ml:118:18>>*/ caml_call1
+             (f,  /*<<effect.ml:118:18>>*/ jsoo_effect_not_supported());
+     /*<<effect.ml:118:45>>*/ }
+     /*<<effect.ml:119:4>>*/ function error(param){
+      /*<<effect.ml:119:18>>*/ return  /*<<effect.ml:119:18>>*/ caml_call1
              (Stdlib[2], cst_impossible);
-     /*<<effect.ml:127:39>>*/ }
+     /*<<effect.ml:119:39>>*/ }
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:129:6>>*/ if(eff !== Initial_setup)
-       /*<<effect.ml:133:13>>*/ return error(0);
-     k[2] = last_fiber;
-      /*<<effect.ml:132:10>>*/ throw [0, E, k];
-     /*<<effect.ml:133:21>>*/ }
-     /*<<effect.ml:135:12>>*/  /*<<effect.ml:135:12>>*/ var
-     s =  /*<<effect.ml:135:12>>*/ caml_alloc_stack(error, error, effc);
-     /*<<effect.ml:136:4>>*/ try{
-      /*<<effect.ml:136:10>>*/  /*<<effect.ml:136:10>>*/ jsoo_effect_not_supported
+      /*<<effect.ml:121:6>>*/ if(eff === Initial_setup)
+       /*<<effect.ml:122:29>>*/ throw [0, E, k];
+      /*<<effect.ml:123:13>>*/ return error(0);
+     /*<<effect.ml:123:21>>*/ }
+     /*<<effect.ml:125:12>>*/  /*<<effect.ml:125:12>>*/ var
+     s =  /*<<effect.ml:125:12>>*/ caml_alloc_stack(error, error, effc);
+     /*<<effect.ml:126:4>>*/ try{
+      /*<<effect.ml:126:10>>*/  /*<<effect.ml:126:10>>*/ jsoo_effect_not_supported
       ();
      var _b_ = 0;
     }
@@ -35833,59 +36454,58 @@
      var exn = caml_wrap_exception(exn$0);
      if(exn[1] !== E) throw caml_maybe_attach_backtrace(exn, 0);
      var k = exn[2];
-      /*<<effect.ml:137:23>>*/ return k;
+      /*<<effect.ml:127:23>>*/ return k;
     }
-     /*<<effect.ml:138:11>>*/ return error(0);
-    /*<<effect.ml:138:19>>*/ }
+     /*<<effect.ml:128:11>>*/ return error(0);
+    /*<<effect.ml:128:19>>*/ }
    function continue_gen(k, resume_fun, v, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:157:6>>*/  /*<<effect.ml:157:12>>*/ var
-      match =  /*<<effect.ml:157:12>>*/ caml_call1(handler[3], eff);
+      /*<<effect.ml:147:6>>*/  /*<<effect.ml:147:12>>*/ var
+      match =  /*<<effect.ml:147:12>>*/ caml_call1(handler[3], eff);
      if(! match)
-       /*<<effect.ml:161:16>>*/ return  /*<<effect.ml:161:16>>*/ jsoo_effect_not_supported
+       /*<<effect.ml:149:16>>*/ return  /*<<effect.ml:149:16>>*/ jsoo_effect_not_supported
               ();
      var f = match[1];
-     k[2] = last_fiber;
-      /*<<effect.ml:160:10>>*/ return  /*<<effect.ml:160:10>>*/ caml_call1
+      /*<<effect.ml:148:18>>*/ return  /*<<effect.ml:148:18>>*/ caml_call1
              (f, k);
-     /*<<effect.ml:161:42>>*/ }
-     /*<<effect.ml:164:16>>*/  /*<<effect.ml:164:16>>*/ var
+     /*<<effect.ml:149:42>>*/ }
+     /*<<effect.ml:152:16>>*/  /*<<effect.ml:152:16>>*/ var
      stack =
-        /*<<effect.ml:164:16>>*/ runtime.caml_continuation_use_and_update_handler_noexc
+        /*<<effect.ml:152:16>>*/ runtime.caml_continuation_use_and_update_handler_noexc
         (k, handler[1], handler[2], effc);
-     /*<<effect.ml:165:4>>*/ return  /*<<effect.ml:165:4>>*/ jsoo_effect_not_supported
+     /*<<effect.ml:153:4>>*/ return  /*<<effect.ml:153:4>>*/ jsoo_effect_not_supported
             ();
-    /*<<effect.ml:165:40>>*/ }
+    /*<<effect.ml:153:40>>*/ }
    function continue_with(k, v, handler){
-     /*<<effect.ml:168:4>>*/ return continue_gen
+     /*<<effect.ml:156:4>>*/ return continue_gen
             (k,
              function(x){
-               /*<<effect.ml:168:29>>*/ return x;
-              /*<<effect.ml:168:30>>*/ },
+               /*<<effect.ml:156:29>>*/ return x;
+              /*<<effect.ml:156:30>>*/ },
              v,
              handler);
-    /*<<effect.ml:168:41>>*/ }
+    /*<<effect.ml:156:41>>*/ }
    function discontinue_with(k, v, handler){
-     /*<<effect.ml:171:4>>*/ return continue_gen
+     /*<<effect.ml:159:4>>*/ return continue_gen
             (k,
              function(e){
-               /*<<effect.ml:171:29>>*/ throw  /*<<effect.ml:171:29>>*/ caml_maybe_attach_backtrace
+               /*<<effect.ml:159:29>>*/ throw  /*<<effect.ml:159:29>>*/ caml_maybe_attach_backtrace
                      (e, 1);
-              /*<<effect.ml:171:36>>*/ },
+              /*<<effect.ml:159:36>>*/ },
              v,
              handler);
-    /*<<effect.ml:171:47>>*/ }
+    /*<<effect.ml:159:47>>*/ }
    function discontinue_with_backtrace$0(k, v, bt, handler){
-     /*<<effect.ml:174:4>>*/ return continue_gen
+     /*<<effect.ml:162:4>>*/ return continue_gen
             (k,
              function(e){
-               /*<<effect.ml:174:29>>*/ caml_restore_raw_backtrace(e, bt);
-               /*<<effect.ml:174:29>>*/ throw  /*<<effect.ml:174:29>>*/ caml_maybe_attach_backtrace
+               /*<<effect.ml:162:29>>*/ caml_restore_raw_backtrace(e, bt);
+               /*<<effect.ml:162:29>>*/ throw  /*<<effect.ml:162:29>>*/ caml_maybe_attach_backtrace
                      (e, 0);
-              /*<<effect.ml:174:63>>*/ },
+              /*<<effect.ml:162:63>>*/ },
              v,
              handler);
-    /*<<effect.ml:174:74>>*/ }
+    /*<<effect.ml:162:74>>*/ }
    var
     Stdlib_Effect =
       [0,
diff --git a/ppx/ppx_deriving_json/tests/gen.mlt b/ppx/ppx_deriving_json/tests/gen.mlt
index 3994e69fa3..4c324e596d 100644
--- a/ppx/ppx_deriving_json/tests/gen.mlt
+++ b/ppx/ppx_deriving_json/tests/gen.mlt
@@ -170,7 +170,6 @@ type variant1 =
 
 [%%expect
 {|
-
 type variant1 =
   | A
   | B
@@ -219,7 +218,6 @@ type variant2 =
 
 [%%expect
 {|
-
 type variant2 =
   | D of string
   | E of variant1 [@@deriving json]
@@ -436,7 +434,6 @@ type inline_record =
 
 [%%expect
 {|
-
 type inline_record =
   | I of {
   name: string ;
@@ -580,7 +577,6 @@ val json :
 
 type t = A | B [@@deriving json]
 [%%expect {|
-
 type t =
   | A
   | B [@@deriving json]
diff --git a/ppx/ppx_js/tests/ppx.mlt b/ppx/ppx_js/tests/ppx.mlt
index e1c1510135..02d7850ebf 100644
--- a/ppx/ppx_js/tests/ppx.mlt
+++ b/ppx/ppx_js/tests/ppx.mlt
@@ -102,7 +102,7 @@ fun (obj : int) -> obj##m
 [%%expect
 {|
 Line _, characters 19-22:
-Error: This expression has type int but an expression was expected of type
+Error: The value obj has type int but an expression was expected of type
          < .. > Js_of_ocaml.Js.t
 |}]
 
@@ -122,7 +122,7 @@ fun (obj : < m : float Js.prop > Js.t) -> obj##m
 [%%expect
 {|
 Line _, characters 42-48:
-Error: This expression has type
+Error: The method call x#m has type
          float Js_of_ocaml.Js.prop =
            < get : float; set : float -> unit > Js_of_ocaml.Js.gen_prop
        but an expression was expected of type 'res Js_of_ocaml.Js.meth
@@ -144,7 +144,7 @@ fun (obj : < m : int -> int Js.meth > Js.t) -> obj##m + 1
 [%%expect
 {|
 Line _, characters 47-53:
-Error: This expression has type int -> int Js_of_ocaml.Js.meth
+Error: The method call x#m has type int -> int Js_of_ocaml.Js.meth
        but an expression was expected of type 'res Js_of_ocaml.Js.meth
 |}]
 
@@ -154,7 +154,7 @@ fun (obj : < m : int Js.meth > Js.t) -> obj##m 1
 [%%expect
 {|
 Line _, characters 40-46:
-Error: This expression has type int Js_of_ocaml.Js.meth
+Error: The method call x#m has type int Js_of_ocaml.Js.meth
        but an expression was expected of type int -> 'res Js_of_ocaml.Js.meth
 |}]
 
@@ -189,7 +189,7 @@ fun (obj : int) -> obj##.p
 [%%expect
 {|
 Line _, characters 19-22:
-Error: This expression has type int but an expression was expected of type
+Error: The value obj has type int but an expression was expected of type
          < .. > Js_of_ocaml.Js.t
 |}]
 
@@ -209,7 +209,7 @@ fun (obj : < p : float Js.writeonly_prop > Js.t) -> obj##.p + 1
 [%%expect
 {|
 Line _, characters 58-59:
-Error: This expression has type
+Error: The method call x#p has type
          float Js_of_ocaml.Js.writeonly_prop =
            < set : float -> unit > Js_of_ocaml.Js.gen_prop
        but an expression was expected of type
@@ -235,7 +235,7 @@ fun (obj : int) -> obj##.p := 2
 [%%expect
 {|
 Line _, characters 19-22:
-Error: This expression has type int but an expression was expected of type
+Error: The value obj has type int but an expression was expected of type
          < .. > Js_of_ocaml.Js.t
 |}]
 
@@ -255,7 +255,7 @@ fun (obj : < p : float Js.readonly_prop > Js.t) -> obj##.p := 1
 [%%expect
 {|
 Line _, characters 51-58:
-Error: This expression has type
+Error: The method call x#p has type
          float Js_of_ocaml.Js.readonly_prop =
            < get : float > Js_of_ocaml.Js.gen_prop
        but an expression was expected of type
@@ -269,7 +269,7 @@ fun (obj : < p : float Js.prop > Js.t) -> obj##.p := 1
 [%%expect
 {|
 Line _, characters 42-49:
-Error: This expression has type
+Error: The method call x#p has type
          float Js_of_ocaml.Js.prop =
            < get : float; set : float -> unit > Js_of_ocaml.Js.gen_prop
        but an expression was expected of type